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ABSTRACT 


This program is designed to be a comprehensive check of the 
PDP-11/70 cpu cluster. The program executes each instruction 
in all address modes An8 includes tests for traps, interrupts, 
the mapping box, mana t, memory, the Unibus, and 
the Mass Bus. If NOT DE DES LECTED, the program peeereces the 
test code throughout menory (O-dm). Alsos if SELECTED 

a Sores will relocate using available —° disks 
tREOS, KO5,RPO4, RS03/4) . See section 9.5 for a description of 
relocation. 


The main differences between revision A and revision B are 
routines to use the UBE and MBT (manufacturing only), worst 
case testing occurs with all switches down, standard SYSMAC 
macros, and floating point processor tests. 


Also, the disk driver was rewritten to make each device have a 

modular driver and to cause I/0 to occur concurrently on the 

oe het disks. (see section 9.5.4 for a description of disk 
rivers 


PRECAUTIONS must be taken to ensure the protection of user 
disks. Refer to section 7.0 for a description of warnings and 
exceptions. 


REQUIREMENTS 


PDP-11/70-74MP (KB11-B/C OR KB11-CM) Central Processor with 16K of memory, a Line 


and an LA30 (or equivalent) console. 
Optional Equipment Used 


1. Unibus Exerciser 

2. Mass Bus Tester 

3. RP11/RPO3, RK11/RKO5, RH70/RP04, RH70/RS03/RS04 
4. FP11-B, FP11-C 


Storage 


The program loads into the first 12K of memory and runs in all 
eee (exclusive of the XXDP monitor if running in chain 
e). 


Preliminary Programs 


Although this program is a test of the CPU cluster, it is 


SEQ 0003 


3.0 


4.2 
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advisable that the CPU cluster (and floating point) 
diagnostics run first. These consist of: 


DEKBA DEKBE. 
DEKBB DEKBG 
DEKSC DEMJA 
DEKBD DEFPA 
DEKBE DEFPB 


LOADING PROCEDURE 


The program is supplied on the diagnostic media. Refer to the 
XXDP operating manual for further information. 


STARTING PROCEDURE 


See Section 5.1 


Starting Addresses 


The starting address for the exerciser is 200. 


By starting at address 210, the switch register and display 
Lights can be checked. This routine just moves the switches 
to the display register allowing the operator to toggle the 
Switches and see the corresponding lights in the display 
register. 


By starting at address 214, the micro-break register can be 
checked. This test requires a maintenance card. See Section 
9.0 for further details. 

START AT ADDRESS 230 AS AN AID TO CUTTING THE JUMPERS FOR THE 
PROCESSOR ID REGISTER. 


Program and Operator Action 


Load program into memory (See Section 3) ; 

- Check for any system disk packs or _ configuration 

exceptions as described in section 7.0. 

- Load address 200 \ 

. Set switches (See Section 5.1) 

- Press Start — ; 

- The program will loop and messages will be typed at_ the 
end of each sub-pass and each pass. (see section 8.3 for 

a description of the messages) 


1 


SEQ 0005 






























5.0 OPERATING PROCEDURE 


aul Operat ionai Switch _Settings 


Swi5 HALT ON ERROR This switch when set will halt 
the processor when an error is 
detected. Pressing continue 
will cause an error message to 
be typed and the processor 
will again halt. Pressing 
continue again will resume 
testing. 


Swi4 LOG® ON TEST This switch when set will 
cause the program to loop on 
the current subtest. 


Sw13 INHIBIT ERROR This switch when set inhibits 
TYPEQUT the error typeout. 
Swi2 INHIBIT UBE This switch when set inhibits 


the initialization of the 
Unibus Exerciser. See section 
9.2 for a description of the 
UBE function. 


Swit INHIBIT SUB- This switch when set inhibits 
TEST ITERATION subtest iteration after the 
first pass. Each subtest is 
executed 10 times before the 
next subtest is run. Setting 
SW11 causes each test to be 
executed once before starting 
the next subtest. 


Sw10 RING BELL This switch when set will ring 

ON ERROR the bell when an error is 
detected. 

Sw9 LOOP ON ERROR This switch when set will 


cause the program to loop on 
the first failure even if the 
failure is intermittant. See 
section 6.1 for a description 
of looping on_- relocation 


errors. 
Sw8 RELOCATE WITH This Switch when set will 
DISK CAUSE RELOCATION TO BE DONE BY 


A DISK INSTEAD OF THE CPU. 
See section 9.5 for a 
description of reiocation. 


Sw? 


SwW6 


Sw 


SWS 


Sw3 


Sw2=SwO 


INHIBIT SYSTEM 
SIZE TYPEOUT 


INHIBIT RELOCATION 


INHIBIT ROUND 
ROBIN 


INHIBiT RANDOM 
DISK ADDRESS 


INHIBIT MBT 


DEVICE CODES 


NOTE 
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This switch when set will in- 
hibit the typeout. of the 
Switch definitions and the 
disks that will be used for 
relocation. (Typeout only 
occurs when the program is 
dumped) 


This switch when set will 
inhibit all relocation. Do 
not change this switch while 
the program is running. 


This switch when set will only 
relocate using the device 
selected by switches <2:0> 
rather than all available 
devices. 


This switch when set will 
cause relocation to always 
start at address 0 on the 
disk(s). 


This switch when set inhibits 
the initialization of the Mass 
Bus Tester. See section 9.3 
for a description of the MBT 
function. 


These switches (along with 
SWw5) cause the program to 
relocate the test code using 
the device specified below: 


VALUE DEVICE 
RP11/rp03 

RKO5 

Not used 

Not used 
RH70/RP04 
RH70/RS03/RS04 


Not used 
Not used 


NOUS WMO 


When relocating via a_ specific device, 
set. in the value(Sw<2:0>) to select the 
device then set switch 5. 


Unit 0 of the load device is marked not 
present if program was loaded in chain 


SEQ 0006 


SEQ 0007 

























mode, and therefore will not be used to 
relocate. 


Ww 
m 


Display Register 


While the program is running, the low byte of the display 
register contains. the su test number and the high yte 
contains bits <14:7> of KERNEL PARO. These bits, of kernel 
par0, correspond to bits <20:13> of the physical address of 
the relocated code. When an error is detected and loop on 
error is selected, the high byte contains the error count. 


5.5 Operator Action 


when the program is loaded* and started with switch 7 on a 
zero the wig Ap will typeout the disks and unit numbers that 
will be used for relocation and then wait for the operator to 
type a character. This is to allow the operator to write 
protect any drive that is not to be used. If there are no 
devices available for relocation, operator action is not 
required. 


If the program is loaded via ACT11 in QV or AA or with XXDP in 
chain mode no operator action is required and all disks not 
write protected (except for the XXDP media) will be used for 
relocation. 


*Except chain mode, QV(manufacturing only), or Auto Accept 
(manufacturing only) 


6.1 Error Halts and Description 


If an error is detected, the program will trap to the error 
handling routine ($ERROR). If halt on error is enabled, the 
processor will halt. Pressing continue will cause an error 
message to be typed and the processor will halt again. 


There are many different types of errors. No matter which 
type occurs a minimum set of information is typed as follows: 


HHH :MM: SS 
ERRORPC PHYSC PC PSW MAINT TEST NO SUB-PASS CNT 
UUUUUU VVVVVVVV Well) XXXXXKOYYYYYY «=SSSSSS_— PPPPPP 


where: 

UUUUHU = Virtual PC of the error call. 
VVVVVVVV = Physical PC of the error call. 
Whaat! = PSW at the time of the error call. 


| Re 
adh SEQ 0008 


YOOX = Contents of the maintenance register(17777750). 
YYYYYY = Test number. 

SSSSSS = Sub-pass count (0 thru 5) 

PPPPPP = Pass count 


HHH:MM:SS Represents the elapsed run time of the program,since 
the most previous start, where: HHH = hours, = minutes, 
and SS = seconds. 


The Virtual PC is the 16 bit word that was pushed on the stack 
when the error call was made. The physical PC is calculated 
in one of two ways: 


1. If memory management is off the contents of location 
FACTOR’ is subtracted from the Virtual PC. This 
generates the corresponding PC for the non-relocated code. 


2. If memory management is on the contents of the appropriate 
PAR is shifted and added to the Virtual PC to generate a 
physical 22 bit address. In this case the virtual PC 
corresponds to the non-relocated code. 


The contents of the maintenance register will indicate what 
memory margin was being performed when the error occurred. 


Depending on the type of error additional information is typed 
as described below. 


oe Unexpected Trap to 4 


PCOF TP PHYSPC PSW CPUERR 
VVVVVV PPPPPPPP YYYYYY ZZZZ27Z 
VVVVVV = Virtual PC that was pushed on the stack when the 


trap occurred. 


PPPPPPPP = Physical PC calculated as described above. 

YYYYYY = PSW that was pushed on the stack. 

227222 = Contents of the CPU error register(17777766). 
6.1.2 Unexpected Trap to 114 

PCOF TP PHY SPC PSW ERRREG ERR ADR REG 

VVVVVV PPPPPPPP YYYYYY 2ZZZ277 EEEEEEEE 

V, P, and Y = are the same as described in 6.1.1. 

222222 = Contents of the memory error register (777744). 

EEEEEEEE = Contents of the error address registers comb ined 


into a 22 bit address (777740 & 777742). 
6.1.3 Parity Error During Data Check 


This error can only occur during the data check that is made 
on the relocated test code before it is executed. This check 
is made by comparing the unrelocated code with the relocated 

e source data refers to the unrelocated code and the 


code. 





destination data to the relocated code. 


SRCADR DSTADR  EADRREG MEM ERR REG 
SSSSSS_ DDDDDDDD EEEEEEEE 222222 


SSSSSS 
DDDDDDDD 
EEFEEEEE 
222222 


Error During Data Check-Reloc was by CP 


Virtual address of the source data. 
Physical address of the destination data. 
Contents of the error address registers. 
Contents of memory error register (777744). 


nue 


This error is similar to 6.1.3 except instead of a parit 
error, it is a data comparison error. Refer to section 9.5. 
for a description of CP relocation. 


Loop on error (SW<9>) has the following effect: . ; 
1. Memory Management Off- If switch<9> is set, looping 
will be rformed on_ the section relocation (see 
section 9.5.1). If Sw<9> is not set, execution will 
continue at the beginning of the next section. 


Memory Management On- If SW<9> is set, looping will be 
performed on the program relocation (see section 
9.5.2) to the same memory space that failed. If Sw<9> 
is not set, program relocation will be retried in the 
same memory space. 


Error During Data Check-Reloc was by I/0 


This error is the same as 6.1.4 except relocation was 
performed via a disk rather than the CP. The error printout 
will identify which device and drive number transferred the 
particular word that failed. Refer to section 9.5.4 for a 
description of I/0 relocation. 


Loop on error (SW<9>) has the following effect: 

1. If SW<9> is set, the device that relocated the word 
(that caused the data check error) is initiated to do 
the same transfer with the same disk address and 
memory addresses. This transfer will continually be 
initiated and checked until SwW<9> is not set. 


Device Error 


This error occurs if_a device error occurs while the device is 
doing a transfer. The device and drive number are identified 
and the contents of the device registers are typed. 


When SW<9> (loop on error) is set, the device that failed is 
continually restarted with the same disk address, memory 
address, and function that caused the error. 


If SW<9> is not set, relocation is restarted. 








6.1.8 


6.1.10 


6.1.11 
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Unibus Exerciser Failed 


cc BUSADR CR2 CR1 PHYS BUS ADR 
KKXKKK = VVVVVV alla a ala YYYYYY 22222222 
KXKKKK = Cycle count. : 
VVVVVV = Virtual bus address that the UBE failed at 
whalatata/ = Control register number 2 
YYYYYY = Control register number 1 : 
2227222272 = Physical memory address that the UBE failed at 


The physical memory address is calculated by adding the 
appropriate map register to the virtual bus address, forming a 
real 22 bit memory address. 


UBE Non-Existant Memory Error 

This error only occurs when the "NO SLAVE SYNC"’ error occurs 
in the unibus exerciser. ap the physical address that timed 
out is typed. This error might indicate that there is a hole 
in memory or that the size register (777760) is set wrong. 


Mass Bus Tester Failed 


CS] WRDCNT BUSADR BADREX MR2 CS2 ST 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 
ER CS3 


HHHHHH JJJIIJ 


AAAAAA = Control and status negra #1 (760100). 
BBBBBB = Word count register (760102). 

cccccc = Bus address register (760104). 

DDDDDD = Bus address extended register (760174). 
EEEEEE = Maintenance register #2 (760106). 

FFFFFF = Control and status register #2 (760110). 
GGGGGG = Status register (760112). 

HHHHHH = Error register (760114). 

JJJJIJ = Control and status register #3 (760176). 


MBT Non-Existant Memory Error 


This is the same as 6.1.7 except that it is detected by the 
NEXM bit in CS2 of the MBT. 


Floating Point Error 


This error will only occur if the left and right hand sides of 
the floating pone identities do not agree within the expected 
tolerance. The value of the calculations are typed out. 


This error should only be a function of the Floating Point 
Prucessor and the FPP diagnostics (DEFPA DEFPB) should be used 
to isolate the problem. 


SEQ 0010 
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-12 Device Hung 


6.2 


6.2.1 


6.2.2 


6.2.5 


6.2.4 


6.2.5 


7.0 


7.1 


This error will occur if a device does not finish its 
relocation: function within 2 seconds after its initiation. If 
a Line clock is not installed, a hung device will a the 
program. Refer to section 9.5.4.4 to determine which device 
and drive is hung. 


Error Recovery 


Different types of errors recover in different ways as 
described below. 


Errors Within Subtests 


+ ghee starts with the instruction following the error 
call. 


Relocation with Memory Mgmt. Off 

Execution starts at the beginning of the next section. 

Device Error or CP Relocation with Memory Mgmt. On 

Relocation is restarted. 

Unexpected Traps Except Parity (4,10,250) 

Execution starts at the address pointed to by location 
“SLPERR’’. This location contains the addresst2 of the most 
recently executed ‘‘SCOPE’' instruction. 

Unexpected Parity Error 

If the parity error is fatal (Bit 2 or 3 set in error reg) the 
program types a restart message at restarts. Otherwise, 
execution starts as in 6.2.4. 


WARNINGS AND EXCEPTIONS 


eee 


Warnings 


Any drive that is not “write protected’’ will be written on 
(except unit 0 of the XXDP load device in chain mode). 


When the program is dumped (see section 5.3) and SwW<7> is set, 
the devices and drives that are not write protected will be 
identified on the terminal. Before typing a character to 
continue, a drive can be write protected without causing an 
error because, the system is sized again. 


Exceptions 


SEQ 00171 


8.0 


8.2 


8.3 
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If any of the devices is located at a non-standard address 
(see, below), the device register address tables (in ‘‘common 
tags’*) should be changed to the correct addresses. Fol lowin 
is the default address of the control and status register o 
each device: 


RPO3====176714 
RKOS====177404 
RP04--=-176700 
RS03/4=-172040 


If the system has both an RPO3 and an RPO4, the branch 
instruction at 100$, in the “’size routine’’ must be replaced by 
a nop (240) for both devices to be used. This branch is 
approximately at address 4552. 


MISCELLANEOUS 


Execution Time 


The execution time is dependent on the amount of memory on the 
system. Following are two typical run times: 


1. Manufacturing Basic Line-32K memory,UBE., MBT, and no 
disks---3 minutes. 

2. System-128K memory, 2 RKO5's, RPO4, and 2 RS04's 
---9 minutes. 


Stack Pointer 


The stack pointer is set to 700. 


NOTE 
When the program is running in either 
user or supervisor mode, the 


user/supervisor stack pointer is set to 
700 and the Kernel stack pointer is set 
to 1200. The Kernel stack pointer is 
used only for the Error and Interrupt 
Service routines. routines. 


Pass Count 


There are two words used for effective pass count. Location 
*“SUBPASS'' and  ‘‘S$PASS"’. Subpass _ contains the ASCII 
representation of the subpass count. This is used to index 
the PSW table and margin table (see section 8.7). 


SEQ 0012 


8.4 


8.5 


8.6 


3.7 


8.8 
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Six subpasses are executed for each pass. This allows all 
ee and PSW combinations to be tested before reporting end 
of pass. 


At the end of each subpass the subpass number (that jis _ bein 
started) is typed followed bY "THE QUICK BROWN FOX JUMPED OVER 
THE LAZY DOGS BACK 0123456789"". If running on ACT11 GV or AA, 
only the sub-pass number is typed. At the end of each pass 
the elapsed run time and the message "END PASS X TOTAL ERRORS 
SINCE LAST REPORT Y'' is typed. 


Iterations 


Sub-test iterations are not performed until the pass count 
($PASS) is non-zero. This makes a QV pass as short as 
possible. 


After the first pass, full 10 octal iterations are performed 
on each subtest. 


T-Bit Trapping 


T bit trapping is controlled by the PSW table. The default 
~y ehagt is to run with the T-Bit on during subpasses 2, 4, 
and 6. 


ACT-11 Compatability 


The program is fully ACT-11 compatable. 
PSwW and Margin Tables 


At the end of the program, just before the messages, are the 
PSwW and margin tables. These tables control what mode and 
register set and which memory margin will be executed on a 
s ss. Refer to section 9.5.2 for a description of how 
these tables are used by the program. These tables may be 
modified if desired. 


1/0 Device Address Modification 


To modify the program address of the I/0 devices patch the 
appropriate device table (in the common tags area) to the 
desired addresses. 


If you are patching the RPO3 or RPO4 see section 7.2. 


Power Fail 


SEQ 0013 
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It a ont. fail occurs (followed by a power up), the word 
is typed on the terminal and the program restarts. 


PROG DESCRIPTION 


The program is divided into 9 sections of position independent 
ene test code. Each section is approximately 1K words 
ong. 


when the program is initially loaded and started it will 
hoe ge hi itself and type the function of the switch register 

and the devices and drives that will be used for relocation, 
if Sw7=0, It will also type the CP options available 
indicator word (OPT.CP). The contents of OPT.CP contain. the 
following indicators: 


used 

used 

available/not available 

used 

used 

available/not available 
KW11=-L available/not available 
Console tty available/not available 
UBE available/not available 
Not used 


Bitore 1/0 
Bits06-00 


Following is a brief description of each section: 


Section 0 This section causes a 256 word 3 Xor 9 test 
pattern to be reiocated throughout memory 0 - 28k. 


NOTE: This should not be construed to be a 
complete memory test. 


Section This section tests the unary instruction se¢ 
executing each unary instruction in each address 
mode gone taming unary instructions using address 


This section tests the unary instructions using 
address mode 7 and binaries in all address modes 
(excluding binary byte ops using address mode 7). 


Section This section tests binary byte ops using address 
mode 7, JMP, JSR and program trap (JOT, TRAP, and 
EMT) instruction. 


Section This section checks that each bit in the processor 
status word (PSW) can be set cleared, reserved 
instructions, and odd address traps. 


Section This section checks ve SXT, XOR, SOB, MARK, RITT 
and RTT instructions 





nA 


9.1 


9.2 


C 
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Section 6 This section checks the ASH, ASHC, MUL, DIV, SPL 
instructions and the program interrupt request 
(PIRQ) logic. 


Section 7 This section checks the stack Limit register 
memory management abort logic, the memory 
management registers, and the maping box 
registers. 


Section 8 This section checks the floating point option, 
(FP11-8 or FP11-C) if available. 


eg nee section 8 are two routines to check the teletype 
printer logic and a routine to start the KWIl-L clock. !* the 
KW11-L is available the priority arbitration logic is tes*ed. 


Micro-Break Test 


The micro-break test is used to test the micro break 
comparators and the stop on micro match function of the 
maintenance card. To run this test the operator must have a 
gta card installed and start the program at address 


The program asks the operator to turn on the stop on micro 
match Switch. It then checks certain bit patterns in the 
micro break register to ensure the processor does not stop 
when it is not supposed to. 


The processor will then stop with zero in the micro address 
Lights. The operator then hits continue, and the processor 
will stop e one (1) in the lights. This sequence continues 
with 2, 10, 20, 40, and 200 qopear'ing in the lights. The 
program male done when it is finis 


Unibus Exerciser (UBE) 


Any one of 4 UBE's will be used. The program looks for a UBE 


at addresses 17770004, 17770024, 17770034° and 17770044. 


Test 77 will initiate the unibus exerciser if it is present. 
This is only done on pass 1 = subpass 1, since from that point 
on, the service routine takes care of restarting it. 


The UBE is Set up with a bus address of 0. 
function that is loaded is re IN PAUSE~DATA out *Syre*". The 


word count is set for ABOUT 1.3K WORDS. It is also set to interrupt 


on level 5. 


When an interrupt occurs a check is made to see if it was 
caused by anerror. If there was no error, 0 is loaded as 
the bus address and the UBE is started again. 


SEQ 0015 


— a, 
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when an error occurs a check is made to see if it was caused 
by @ memory timeout. If it was, the address in the UBE bus 
address register is compared with the address in the system 
size registers. If they are the same (no holes in memory) the 
UBE is restarted at address 0 and the above sequence is 
repeated. If the addresses are not the same a memory-hove 
error is reported. 


If the error was not due to a timeout a UBE error is reported. 
Mass Bus Tester (MBT) 


Any one of 4 MBT's will be used. The esto Loéks for an MBT 
at addresses 17770100, 17770200, 17770300, and 17770400. If 
an MBT is found, the drive type register (77770K26) is checked 
to make sure that it really is an MBI. 


Test 77 also initiates the mass bus tester. Again, thie is 
only done on Pass 1 - subpass 1 since the service routine 
keeps it running. 


The bus address register is initially set to 0, the word count 
to 2K words, and a read function is initiated. 


When an interrupt occurs an error check is made. This error 
check is the same as that described for the UBE. If there was 
no error, the word count is reloaded and the function jis 
issued. The bus address fog*eter is not changed so it will 
continue from where it left off. 


Line Clock Initialization 


Test 76 turns on the Line clock. Two locations in ‘‘common 
tags'' keep track of the elapsed run time of the program. When 
the clock interrupts, the low byte of location ‘‘lticks’'is 
incremented. When this byte gets to 60(decimal) it is cleared 
and the high byte is incremented(seconds). When the second 
count gets to 60(decimal) location ‘mticks’’ is incremented and 
lticks is cleared. This gives the timer a 64K decimal minute 
range. 


NOTE 


For the UBE , MBT, and Line Clock, when 
an interrupt occurs, program execution 
returns to Kernel mode and the Kernel 
PAR's are mapped down to the 0-12K bank 
of memory. Upon returning from. the 
interrupt the PAR's are mapped back to 
where they were and the previous 
processor mode is restored. 


SEQ 0016 





9.5 


9.5.1 


9.5.2 
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Relocation Algorithm 


Section Relocation 


As each section is entered the virtual start address is saved 
in location ‘*RSTAD'’ and the relocation factor (byte offset 
from non=-relocated code) is calculated and saved in location 
“FACTOR’’. The test code is then executed. 


At the end of each section, control is transfered to the 


“relocation routine’’. If SwW<8> jis CLEAR, this routine will 


relocate the section via the (P (see 9.5.3). If Sw<8 is 
set, the length of the section is calculated, saved as a word 
count, and control is transfered to the "1/0 monitor’’ (see 
section 9.5.4) which relocates the section by using a disk. 


Each section is initially relocated to the end address of the 
program. Subsequent relocations start at the end of the 
previous relocation. For example: if section 0 is 1000 bytes 
long and the end address of the we is 60000, the first 
relocation starts at address 60000, the second at 61000, the 
third at 62000, etc. This continues until 28K has been 
reached at which time execution goes to the start of the next 
section and the process repeats with the new section. 


Each section is written in position independent code so _ that 
it can be relocated and executed without the use of memory 
management . 


Program Relocation 


When all nine sections have —— relocated and executed thru 
28K (see section 9.5.1), memo _peregenere is setup according 
tc the value in location NEXPA is value is’ initialized 
to 600 (or 1600 if running under the XXDP monitor), makin 
relocation start at address 60000 (or 160000). The ‘'I/ 
monitor is then entered (see section 9.5.4) to relocate the 
program. When the I/0 monitor completes the relocation, 
execution is transfered to the start of the program at the 
reiocated position. 


Each section is executed only once with memory management on. 
At the end of section 8, 77 is added to EXPAR'’ and 
relocation is performed again. This causes the next 
relocation to move up by 7700 bytes. For example: If 
nexpar=1600 the first relocation starts at aadress 160000, the 
second at address 167700, the third at 177600, etc. 


This continues until the end of memory is reached and 
constitutes a sub-pass. The PSW and maintenance register (for 
memory margins) are then setup for the next sub-pass and the 
program restarts. 


The value for the PSW and maintenance registers is taken from 
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the tables (see section 8.7). The particular entry that is 
used is obtained by indexing the table by the sub-pass number 
(see section 8.3). For example, sub-pass 3 uses word 3 (the 
first word is counted as zero) of eacn table. Therefore, to 
change the value in the PSW or maintenance register only 
requires changing the value in the appropriate table. 


The completion of 6 sub-passes constitutes a pass and an end 
of pass message is typed. The program then restarts in pass 
2, sub-pass 0. 


9.5.3 Relocation VIA CP 


If Sw<8> is CLEAR, both section and program relocation (see 
sections 9.5.1 and 9.5.2), are performed by an instruction 
move loop rather than a disk. for example: 


1$: MOV (RO)+,(R2)+ 
CMP RO,R3 
BNE 1$ 


where RO is the address of the code iy moved, R2 is the 
address that it is being moved to, and R3 is the last address 
that is to be moved. 


When this is finished, the relocated data is checked by an 
instruction compare loop to ensure that the relocation was 
performed correctly. 


9.5.4 Relocation VIA I/0 


If SW<8> jis set, both section and program relocation (see 
section 9.5.1 and 9.5.2), are performed by writing the data to 
a disk and reading it back to the relocated position. This 
relocation is controlled by the ‘‘I/0 Monitor’’. 


9.5.4.1 Section Relocation 


When the I/0 monitor is entered from the ‘'relocation routine’ 
(see section 9.5.1) a device is selected (see 9.5.4.3), the 
memory addresses (from and to) and word count are passed to 
the device handler (see section 9.5.4.4), and the handler is 
called. When the handler finishes, the I/0 monitor checks the 
relocated data with an instruction compare loop to ensure the 
relocated data is correct, and returns to the ‘relocation 
routine’’ (see 9.5.1). 


9.5.4.2 Program Relocation 


when the I/O monitor is entered for program relocation (see 
section 9.5.2) the base address for the relocation is 
calculated from the contents of kernel par3 which was set up 
with memory management (see 9.5.2). If SwW<8>_ is CLEAR, 
relocation is performed VIA the CP (see section 9.5.3). 
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If Sw<8> is set, a device is selected (see 9. 5.4.3), the 

word count is eet to 2K, and the memory addresses ‘(from and 
to) Pe. word count are passed to the device handler (see 
9.5.4 and the handler is called. The I/0 monitor then 
adds .” to the memory addresses, selects another device, 
asses the addresses to the device handler, and calls the 
andler. This continues until all 12K has been relocated. 
The relocated data is then checked with an instruction compare 
Loge; The relocated program is then executed as described in 


Device Selection 


If SW<S> is not set, an index is picked up from location 
“DEVINDX’’. This index is used to index the system size table. 
The system size table consists of 8 words (one for each device 
type). Bits <7:0> of each word are used to indicate the drive 
numbers that are available on the By Abe i and are initialized 
in the size routine. Bits <i15:8> of each word are used to 
indicate whether the drive has been used for a data transfer 
(unit used bit). 


The system size table is then searched, using the index 
Gescribed above, tor a drive that, has not been used. When a 
drive is found, the ‘unit used bit’’ is set, the current index 
is put back in location DEVINDX, and execution continues as 
described in 9.5.4.1 or 9.5.4.2. 


If an unused unit is not found, all the ‘unit used’ bits are 
cleared and the search is restarted. It the search finds the 
system size table empty (mo devices on the system), the 
ig 4 "NO 1/0 DEVICES" is S tyged and relocation is per formed 
via the CP as described in 9.5.3. 


If SW<5S> is set, SW's<2:0> are used to index the system size 
table. In: this case = one word of the table is used 
corresponding to the device “og selected by SW's<2:0> (see 
section 5.1). In this mode, a round robin selection is 
performed on the drives of the selected device. 


Device Handlers 


Each device that is used for relocation has a handler. These 
handlers are functionally the same. 


The handler is called by the I/0 Monitor (see section 9.5.4). 
It first clears the done bit (bit 7) in the handler status 
word. This prevents the monitor from calling this handler 
again before it is finished. 


If a ‘device hung’ error (see section 6.1.12) is detected, the 
handler status words can be examined to determine which device 
did not finish (set bit 7). The drive can then be determined 
by looking in the "device handler unit number’’ table. The 
handler status words and device handler unit number tables, 
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are located in the ‘‘common tags"’ area of the Listing. 


Then the handler calculates a disk address. This address is 
either taggg, from a random number (SW4=0) or is set to 
zero (S The device ID, unit mumber, and cylinder 
address -— combined and placed in the ‘RUN TABLE'’ (RUNTBL). 
The position in the run table corresponds to which 2K block of 
the program is being transfered (i.e. the first eK block is 
identified by word 1, the second 2k by word 2, etc.). The bit 
configuration of each word in the run table is as tol lows: 


<15:13> = Device ID 
<12:10> = Unit Number 
<)> = not used 
<8:0> = Cylinder Address D 


The track=-sector address of the transfer is saved in the ‘RUN 
TRACK TABLE’’ (RUNTRAK). The position in this table is as 
described above. The bit configuration of each word is the 
same as that for the disk address register for the particular 
device. Bit 15 is used to indicate a device error. It is set 
by the device service routine.(see section 9.5.4.5) 


The handler then initializes the device registers with all the 

appropriate information and starts a write function. 
Execution then returns to the I/0 Monitor at the point where 
the handler was called. 


Device Service Routines 


Each device that is used for relocation has a service routine. 
These routines are all functionally the same. 


The routine is entered by a device interrupt. The device is 
checked for any errors. If no error occurred the device 
registers are loaded and the next function to perform is 
initiated. Three functions are executed: Write, Write Check, 

and Read. ALL the necessary bus address information is 
calculated by the I/0 Monitor, so the service routine just 
takes care of the device. 


When the read function has been completed successfully, the 
done bit (bit 7) in the handler status word is set. 


Upon initiation of a function, or completion of all three 
functions, the service routine returns execution to where it 
was when it was interrupted. 


If an error is detected, the function that failed is retried 
two more times. If the error is still present the done bit 
and the error bit (bit 15) is set in the handler status word 
along with bit 15, im the appropriate entry, in the RUN TRACK 
TABLE, and the routine exits as described a ove. 
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OPERATIONAL SWITCH SETTINGS 

BASIC DEFINITIONS 

REGISTER DEFINITIONS 
CPU REGISTER DEFINITIONS 

GEMENT DEFINITIONS 

UNIBUS MAP REGISTER DEFINITIONS 

CIS wigs « DEF INITIONS 


RAP CATCHER 
STARTING ADDRESS<ES) 

ACT11 HOOKS 
COMMON TAGS 


CACHE 
MEMORY 


DEVICE HANDLER 
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MACY11 30A(1052) 04-OCT-79 09:00 
TABLE OF CONTENTS 


STATUS WORDS 


DEVICE HANDLER WORD COUNTS 


DEVICE HANDLER 
DEVICE HANDLER 


EVICE 


D 
ADDRESS OF THE 
DEVICE HANDLER 


DEVICE E 
+4f CE REGI STER TABLES 


1/RPO3_REGISTERS 
RKTI/RKOS. REGISTERS 

H70/RPO4 REGISTERS 
RH?O/RSOG REGISTERS 
UNIBUS EXERCISER REGISTER ADDRESS TABLE 
MASS BUS TESTER REGISTER ADDRESSES 
ERROR POINTER TABLE 
PROGRAM INITIALIZATION 

aeSties alten REGISTER TEST 


mf 


START OF SECTION 0 


BRANCH 


T2 CHECK 

4 ald OF SECTION 1 
TEST UNIARY CONDITION CODES 

CHECK REGISTER SELECTION 

3 3 UNI “ys a) INSTRUCTIONS USING ADDRESS MODE 1 


CHECK BINARY 
CHECK BINARY 
CHECK BINARY 


OLD BASE ADDRESS 
NEW BASE ADDRESSES 
HANDLER UNIT NUMBER 

DEVICE HANDLERS 
DISK ADDRESS TABLE 


MEMORY VERIFICATION TEST 


INSTRUCT IONS 


YTE INSTRUCTIONS USING ADDRESS MODE 1 

WORD OPS USING ADDRESS MODES 2 & 4 

BYTE OPS USING ADDRESS MODES 2 & 4 

WORD OPS USING ADDRESS MODES 3 & 5 

BYTE OPS USING ADDRESS MODES 3 @ 5 

WORD OPS USING ADDRESS MODE 6 (PC) 

BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) 
WORD OPS USING ADDRESS MODE 7 


BYTE OPS USING ADDRESS MODE 7 
OPS USING ADDRESS MODE 0 

OPS USING ADDRESS MODE 1 

BYTE OPS USING ADDRESS MODE 1 
WORD OPS USING ADDRESS MODE 2 
BYTE OPS USING ADDRESS MODE 2 
WORD OPS USING ADDRESS MODES 3 & 5 
BYTE OPS USING ADDRESS MODES 3 & 5 
OPS USING ADDRESS MODE 6 
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CEQKCD.P11 04-OCT-79 08:55 TABLE OF CONTENTS 


T27 CHECK BINARY BYTE OPS USING ADDRESS sine § 


T32 CHECK BINARY BYTE OPS USING ADDRESS MODE 0 
START OF eth On 3 

133 CHECK BINARY BYTE OPS USING ADDRESS MODE 7 
134 CHECK JUMP INSTRUCTIONS 

135 CHECK JSR INSTRUCTIONS 


UEN 
740 CHECK TRAP INSTRUCTION TRAP SEQUENCE 
141 CHECK STACK OVERFLOW 
START OF SECTION 4 
T42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 


143 CHECK THAT ALL BITS IN THE PSW CAN BE SET AND CLEARED 
144 CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 


145 CHECK THAT 'C' BIT SETS/CLEARS PROPERLY 
T46 CHECK EXTENDED INSTRUCTION SET 

START OF SECTION 5 

T SOB TEST 

T50 CHECK THE MARK INSTRUCTION 

T51 RTT/RTI TEST « 

T52 SECOND RTT TEST 

153 CHECK ASH, ASHC, MUL, AND DIV INSTRUCTIONS 
Magid OF 33h 6 


CHECK MUL 
155 CHECK THE DiV INSTRUCTION 
156 DIVIDE AGAIN 

157 CHECK SPL INSTRUCTION 

160 CHECK PIRQ LOGIC 

161 CHECK MICRO-BREAK REGISTER 

162 CHECK MFPI/MTPI INSTRUCTIONS 

163 CHECK ILLEGAL HA 

164 CHECK RESET IN SUPER/USER MODE 
165 TEST STACK LIMIT REGISTER 

START OF SECTION 7 

166 MEMORY MANAGEMENT REGISTER TESTS 
167 ~—s PAR‘ TEST 

T70 CHECK KT ABORT LOGIC 

171 MAPPING REGISTER TESTS 

172 FLOATING POINT TEST 1 

START OF SECTION 8 

173 FLOATING POINT TEST 2 

FLOATING POINT MULTIPLY ROUTINE 

FLOATING POINT DIVIDE ROUTINE 

FLOATING POINT ADD ROUTINE 

174 CHECK MFPT INSTRUCTION (KA11-E/EM ONY) 
START OF SECTION 9 

175 COMMERCIAL INSTRUCTION SET TEST 
176 TELETYPE AND CLOCK TES 

177 TURN ON UBE AND MBT 

STMM_ ROUTINE 

RELOCATION ROUTINE 

1/0 RELOCATION MONITOR 

END OF SUB-PASS ROUTINE 

END OF PASS ROUTINE 
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RP11/RPO3 HANDLER 
RK11/RKOS HANDLER 
RH70/RP04 HANDLER 
RH70/RSO04 HANDLER 
RP11/RPO3 SERVICE ROUTINE 
RK11/RKOS SERVICE ROUTINE 
RH70/RPO4 SERVICE ROUTINE 
RH70/RSO4 SERVICE ROUTINE 
UNIBUS EXERCISER SERVICE ROUTINE 
MASS BUS TESTER gs ROUTINE 
LINE CLOCK gh OUT INE 
SCOPE HANDLER ROUTINE 
ERROR HANDLER ROUT INE 
ERROR MESSAGE TYPEOUT ROUTINE 
TYPE ROUTINE 
ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM 
ROUTINE TO TYPE THE AVAILABLE eo AND UNIT NUMBERS 


INE 
DOUBLE LENGTH BINARY TO Aes ASCII CONVERT ROUTINE 
SAVE AND RESTORE RO-R5S ROUTINES 
CONVERT FLOATING BINARY TO TOCTAL ASCIZ 
CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCI7 
RANDOM NUMBER GENERATOR ROUTINE 
FLOATING POINT NUMBER GENERATOR 
FLOATING POINT EXPONENT EXTENSION 
POWER DOWN AND UP ROUTI 


NES 
TTY wee ROUT INE 
READ A_ DECIMAL NUMBER FROM THE TTY 
ROUTINE TO SIZE MEMORY 
TRAP DECODER 
TRAP TABLE 
UNIBUS EXERCISER INITIALIZATION ROUTINE 
CONVERT UNIBUS VIRTUAL ADDRESS TO PHYSICAL ADDRESS 
CONVERT A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 
ROUTINE TO CHECK RELOCATED DATA 
ROUTINE TO GET A MAP REGISTER 
GIVE MAP SUBROUTINE 
ROUTINE TO CLEAR ‘T° BIT 
ROUTINE TO RESTORE THE T BIT 
KEYBOARD INT SERV ROUTINE 
TELETYPE INTERRUPT SERVICE ROUTINE 
PARITY ERROR SERVICE 
CONTEXT SWITCH DOWN SUBROUTINE 
CONTEXT SWITCH UP SUBROUTINE 
KT ABORT SUBROUTINE 
RESERVED INSTRUCTION ROUTINE 
TRAP TO 4 SERVICE ROUTINE 


SEQ 0023 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
$ 
22 -TITLE DEQKC-D PDP _11/70-74MP CPU EXERCISER 
23 z*COPYRIGHT (C) 1975, 1978 
24 >*DIGITAL EQUIPMENT CORP. 
4 s SMAYNARD , MASS. 01754 
$a ! *PROGRAM BY DONALD W. MONROE 
29 THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
30 ;*PACKAGE (MAINDEC-11-DZQAC-A5~1). 


31 : 
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SBTTL OPERATIONAL SWITCH SETTINGS 


ee 


SWITCH 


O—NWENAA N@WOSC—NW 


NOUS WH-O 
* 2.8 8 © © © @ @ 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT UBE 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 
ALLOW RELOCATION VIA 1/0 DEVICE 
INHIBIT SYSTEM SIZE TYPEOUT 
INHIBIT RELOCATION 
INHIBIT ROUND ROBIN 
INHIBIT RANDOM DISK ADDRESS 
INHIBIT MBT 
THESE THREE SWITCHES 
ARE ENCODED TO SELECT RELOCATION 
ON THE FOLLOWING DEVICES: 

. -RP11/RPO3 

. «RK11/RKO5 

.-NOT USED 

. -NOT USED 

. «~RH70/RP04 

. -RH70/RS04 

. «NOT USED 

. -NOT USED 
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177776 
177774 


N 
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OPERATIONAL SWITCH SETTINGS 
-SBTTL BASIC DEFINITIONS 


2 * INITIAL ADDRESS OF THE athe POINTER *** 1200 *** 
STACK= 1200 FIRST ADDRESS OF THE STACK 


KERSTK= STACK «KERNEL STACK 
SUPSTK= STACK-300 8S tack STACK 


USESTK= STACK-400 7 USE 

: :IBASIC DEFINITION OF ERROR CALL 
. +:BASIC DEFINITION OF SCOPE CALL 
PS= 177776 ::PROCESSOR STATUS WORD 


STKLMT= 177776 ;:STACK LIMIT REGISTER 
PIRQ= 177772 ‘PROGRAM INTERRUPT REQUEST. REGISTER 
177570 +:SWITCH REGISTER 


SWR= 
DISPLAY=SWR 


ag aes anime DEF INITIONS 
:CODE FOR HORIZONTAL TAB 


“* 12 ;;CODE LINE FEED 

CR= 15 ;;CODE CARRIAGE RETUR 
CRLF= 200 ::CODE FOR CARRIAGE RE TURNAL INE FEED 
:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 3 :GENERAL REGISTER 
R1= %1 3 RAL REGISTER 
R2= %2 $3 RAL REGISTER 
R3= %3 7;GENERAL REGISTER 
R4= %4 7 GENERAL REGISTER 
RS= “5 7:GENERAL REGISTER 
R6= %6 3;GENERAL REGISTER 
R7= %7 7 GENERAL REGISTER 
EQUIV RO,R10 72GENERAL REGISTER 
-EQUIV R1,R11 3: :GENERAL REGISTER 
-EQUIV R2,R12 72GENERAL REGISTER 
-EQUIV R3,R13 7 :GENERAL REGISTER 
-EQUIV R4,R14 37: GENERAL REGISTER 
phy R5.R15 7 GENERAL REGISTER 
-EQUIV SP,KSP : KERNEL STACK POINTER 
-EQUIV SP,SSP :; SUPERVISOR STACK POINTER 
-EQUIV SP,USP 7; USER STACK POINTER 
PC=%7 

en LEVEL DEFINITIONS 

: PRIORITY LEVEL 0 

Pais 40 : PRIORITY LEVEL 1 
PR2= 100 PRIORITY LEVEL 2 
PR3= 140 PRIORITY LEVEL 3 
PR4= 200 7 PRIORITY LEVEL 4 
PRS= 240 > PRIORITY LEVEL 5 
PR6= 300 : PRIORITY LEVEL 6 
PR7= 340 : PRIORITY LEVEL 7 
7*° ‘SWITCH REGISTER’ SWITCH DEFINITIONS 

SW15= 100000 


SEQ 0026 
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127 040000 
128 020000 
129 010000 
130 004000 
131 002000 
132 001000 
133 000400 
134 000 
135 000100 
136 000040 
137 000020 
138 000010 
139 000004 
140 000002 
141 000001 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 100000 
155 040000 
156 020000 
157 010000 
158 000 
159 002000 
160 001000 
161 000400 
162 000200 
163 000100 
164 000040 
165 000020 
166 000010 
167 000004 
168 000002 
169 000001 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 000004 
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BASIC DEFINITIONS 


SW14= 40000 
SW13= 20000 
Swi2= 10000 
SWil= 4000 
Sw10= 2000 
Sswo9= 1 
Swo8= 400 
SwO7= 200 
SwO6= 100 
SwoS= 40 
Sw04= 20 
SwO3= 10 
SWO2= 4 
SwOl= 2 


“EQUIV SW06, 
EQUIV SWwO5.SW5 
SW04 


“EQUIV SwWOO, SWO 


B1T11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BIT07= 200 

T06= 100 

BITOS5= 40 

BIT04= 20 

BITO3= 10 

BITO2= 4 

BITO1= 2 

B1T00= 
EQUIV BITO9,BIT9 
EQUIV B1T08,BIT8 
EQUIV BITO7,BIT7 
EQUIV BIT06,BIT6 
EQUIV BIT0S,BIT5S 
EQUIV BIT04,BIT4 
EQUIV BIT03,B1T3 
EQUIV 102,BIT2 


"EQUIV BITOO.BITO 


me th “*CPU'' TRAP VECTOR spent ss 
ERRVEC= 4 33;TIME OUT AND OTHER ERRORS 


Ds 
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177740 
177742 
177744 
177746 
177750 
177752 


177760 
177762 


177764 
177766 


177572 
177574 
177576 
172516 


177600 


PU 
08: 


AY ERCISER 


MACY11 30A(1952) 
BASIC DEFINITIONS 


TPV 
CACHVE C= 114 
Ah pag > 


MMVEC= 

-SBTTL CACHE 
LOADRS = 177740 
HIADRS = 177742 
MEMERR = 177744 
CONTRL = 177746 
MAINT = 177750 
HITMIS = 177752 


C 
04-OCT-79 09:00 PAGE 6 


: sRESERVED AND ILLEGAL INSTRUCTIONS 
t: TRACE TRAP 
‘ :BREAKPOINT TRAP (BPT) 
:$ INPUT /QUTPUT TRAP (JOT) **SCOPE®« 
: EMULATOR TRAP (EMT) *#*ERROR** 

oT TRAP 


Z:TTY KEYBOARD ton 

7; TTY PRINTER VECTOR 

;:CACHE ERROR INTERRUPT VECTOR 

+ 3PROGRAM I INTERRUPT REQUEST VECTOR 
: ;MEMORY MANAGEMENT VECTOR 


REGISTER DEFINITIONS 


;;LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
;;UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
;;CACHE ERROR REGISTER 
: sMEMORY CONTROL REGISTER 

sMEMORY MAINTENENCE REGISTER 
ZIHIT MISS REGISTER ‘I'* IMPLIES HIT IN CACHE 


-SBTTL CPU REGISTER DEFINITIONS 


SIZELO = 177760 
SIZEHI = 177762 


SYSTID = 177764 
CPUERR = 177766 


;MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
370 GET TO THE LAST 32 WORDS OF MEMORY 
: ¢HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
CURRENTLY ALL ZERO 
SYSTEM ID REGISTER 
3;CPU ERROR REGISTER HOLDS CONDI" ION THAT CAUSED 
3; THE TRAP TO ERRVEC (000004) 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


;*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 


MMRO= 177572 


MMRI= 177574 
MMR2= 177576 
= 172516 


“EQUIV MMR3.SR3 


;*USER ‘'I'' PAGE DESCRIPTOR REGISTERS 


UIPDRO= 177600 


SEQ 0028 
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CEQKCD.P11 04-OCT-79 08:55 MEMORY MANAGEMENT DEFINITIONS SEQ 0029 

239 177602 UIPDR1= 177602 
240 177604 UIPDR2= 177604 
241 177 UIPDR3= 1776 
242 177610 UIPDR4= 177610 
243 177612 UIPDRS= 177612 
244 177614 UIPDR6= 177614 
$<? 177616 UIPDR7= 177616 
44 :*USER ‘D'* PAGE DESCRIPTOR REGISTORS 
249 177620 UDPDRO= 177620 
250 177622 UDPDR1= 177622 
251 177624 UDPDR2= 177624 
252 177626 UDPDR3= 177626 
253 177630 UDPDR4= 177630 
254 177632 UDPDRS= 177632 
255 177634 UDPDR6= 177634 
336 177636 UDPDR7= 177636 
338 ;*USER ‘‘I'' PAGE ADDRESS REGISTERS 
260 177640 UIPARO= 177640 
261 177642 UIPAR1= 177642 
262 177664 UIPAR2= 177644 

3 177646 UIPAR3= 177646 

177650 UIPAR4= 177650 

265 177652 UIPARS= 177652 
266 177654 UIPAR6= 177654 
267 177656 UIPAR7= 177656 
269 :*USER ‘D'’ PAGE ADDRESS REGISTERS 
271 177660 UDPARO= 177660 
272 177662 UDPAR1= 177662 
273 177664 UDPAR2= 177664 
274 7 UDPAR3= 
275 177670 UDPAR4= 177670 
276 177672 UDPARS= 177672 
277 177674 UDPAR6= 177674 
278 177676 UDPAR7= 177676 
Say :*SUPERVISOR ‘'I'' PAGE DESCRIPTOR REGISTERS 
282 172200 SIPDRO= 172200 
283 172202 SIPDR1= 172202 
284 172204 SIPDR2= 172204 
285 06 SIPDR3= 172206 
2 172210 SIPDR4= 172210 
287 172212 SIPDRS= 172212 
288 172214 SIPDR6= 172214 
289 172216 SIPDR7= 172216 
44 *SUPERVISOR 'D'' PAGE DESCRIPTOR REGISTERS 
294 172220 SDPDRO= 172220 
294 172222 SDPDRi= 172222 
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CEQKCD.P14 04-0CT=79 08:55 MEMORY MANAGEMENT DEF INI TIONS SEQ 0030 
295 172224 SDPDR2= 172224 
296 172226 SDPDR35= 172226 
297 172230 SDPDR4= 172230 
298 172232 SDPDR5= 172232 
299 172 SDPDRO6= 172234 
30 172236 SDPDR7= 172236 
4 ;*SUPERVISOR ‘'I"* PAGE ADDRESS REGISTERS 
304 172240 SIPARO= 172240 
305 172242 SIPAR1= 172242 
306 172244 SIPAR2= 172244 
307 172246 SIPAR3= 17224 
308 172250 SIPARS= 172250 
309 172252 SIPARS= 17225 
310 172254 SIPAR6= 17225 
el 172256 SIPAR7= 172256 
312 ;*SUPERVISOR ‘'D'* PAGE ADDRESS REGISTERS 
315 172260 SDPARO= 172260 
316 172262 SDPARi= 172262 
317 172264 SDPAR2= 172264 
318 172266 SDPAR3= 172266 
319 172270 SDPAR4= 172270 
320 172272 SDPARS= 172272 
321 172274 SDPAR6= 172274 
a6 172276 SDPAR7= 172276 
352 ;*KERNEL *'I'’ PAGE DESCRIFTOR REGISTERS 
326 172300 KIPDRO= 172300 
327 172302 KIPDR1= 172302 
328 172304 KIPDR2= 172304 
329 172306 KIPDR3= 172306 
330 172310 KIPDR4= 172310 
331 172312 KIPDR5= 172312 
332 172314 KIPDR6= 172314 
sez 172316 KIPDR7= 172316 
4 ;*KERNEL *D'' PAGE DESCRIPTOR REGISTERS 
337 172320 KDPDRO= 172320 
338 172322 KDPDR1= 172322 
339 172324 KDPDR2= 172324 
340 172326 KDPDR3= 172326 
341 172330 KDPDR4= 172330 
342 172332 KDPDR5= 172332 
343 172334 KDPDR6= 172334 
ee 172336 KDPDR7= 172336 
74] *KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
348 172340 KIPARO= 172340 
349 172342 KIPARi= 172342 
350 172344 KIPAR2= 172344 
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351 172346 
352 172350 
353 172352 
354 172354 
355 172356 
356 
357 
358 
359 172360 
360 172362 
361 172364 
362 172366 
363 172370 
364 172372 
365 172374 
366 172376 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 170200 
379 170202 
380 170204 
381 170206 
382 170210 
383 170212 
384 170214 
385 170216 
386 170220 
387 170c22 
388 170224 
389 170226 
390 170230 
391 170232 
392 170234 
393 170236 
394 170240 
395 170242 
396 170244 
397 170246 
398 170250 
399 170252 
400 170254 
401 170256 
402 170260 
403 170262 
404 170264 
405 170266 
406 170270 


»_ 
MACY11 30A(1052) 04-OCT-79 09:00 PAGE 9 
MEMORY MANAGEMENT DEF INI TIONS 


KIPAR3= 172346 
KIPAR4= 172350 
KIPAR7= 172356 
;*KERNEL 'D'' PAGE ADDRESS REGISTERS 


KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KDPAR3= 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 


-SBTTL UNIBUS MAP REGISTER DEFINITIONS 


;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘"MAPLXx' 
> *THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX* 


MAPLOO = 170200 
MAPHOO = 170202 
MAPLO1 = 170204 
MAPHO1 = 170206 
MAPLO2Z = 170210 
MAPHO2 = 170212 
MAPLO3 = 170214 
MAPHO3 = 170216 
MAPLO4 = 170220 
MAP! = 170222 
MAPLOS = 170224 
MAPHOS = 170226 
MAPLO6 = 170230 
MAP; = 170232 
MAPLO7 = 170234 
MAPHO7 = 170236 
MAPL10 = 170240 
MAPH10 = 170242 
MAPL17 = 170244 
MAPH11 = 170246 
MAPL12 = 170250 
MAPH12 = 170252 
MAPL13 = 170254 
MAPH13 = 170256 
MAPL14 = 170260 
MAPH14 = 170262 
MAPL15 = 170264 
MAPH15 = 170266 
MAPL16 = 170270 


SEQ 0031 
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407 170272 MAPH16 = 170272 . 
408 170274 MAPL17 = 170274 
409 fai 443 MAPH17 = 170276 


456 “EQUIV MAPLO7.MAPL7 
457 “EQUIV MAPHO7.MAPH7 


410 170 MAPL20 = 170300 

411 170302 MAPH2O0 = 170302 

412 170304 MAPL21 = 170304 

413 170306 MAPH21 = 170306 

414 170310 MAPL22 = 170310 

415 170312 MAPH22 = 170312 

416 170314 MAPL23 = 170314 

417 170316 MAPH23 = 170316 

418 170320 MAPL24 = 170320 

419 170320 MAPH24 = 170320 

420 170324 MAPL25 = 170324 

421 120326 MAPH25 = 170326 

422 170330 MAPL26 = 170330 

423 170332 MAPH26 = 170332 

424 1703 MAPL27? = 170334 

425 170336 MAPH27 = 170336 

426 170340 MAPL30 = 170340 

427 170342 MAPH30 = 170342 

428 170344 MAPL31 = 170344 

429 170346 MAPH31 = 170346 

430 170350 MAPL32 = 170350 

431 120352 MAPH32 = 170352 

432 170354 MAPL33 = 170354 

433 170356 MAPH33 = 170356 

434 170360 MAPL34 = 170360 

425 170362 MAPH34 = 170362 

436 170364 MAPL35 = 170364 

437 170366 MAPH35 = 170366 

438 170370 MAPL36 = 170370 

439 170372 MAPH36 = 170372 

440 170374 MAPL37 = 170374 

441 170376 MAPH37 = 170376 

442 EQUIV MAPLOO,MAPLO 
443 EQUIV MAPHOO.MAPHO 
444 “EQUIV MAPLO1.MAPL 1 
445 -EQUIV MAPHO1 

446 EQUIV MAPLO2.MAPL2 
447 -EQUIV ° 

448 EQUIV MAPLO3.MAPL 3 
44S “EQUIV f 

450 “EQUIV MAPLO4.MAPL4 
451 “EQUIV 

452 EQUIV MAPLOS.MAPL5 
453 EQUIV MAPHOS. 

454 EQUIV MAPLO6.MAPL6 
455 EQUIV MAPHO6.MAPH6 
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CEQKCD.P11 04-0CT=-79 08:55 UNIBUS MAP REGISTER DEFINITIONS o SEQ 0033 

463 000001 AC1= %1 

464 000002 AC2= %e 

465 000003 AC3= 23 

466 000004 AC4= a 

467 000005 AC5= x5 

468 ;LINE CLOCK AND PROGRAMMABLE LINE CLOCK REGISTERS 

469 172540 PLKCSR=172540 

470 172542 PLKCSB=172542 


471 000104 PLKVEC=104 
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177546 
000100 


— Ss = I 
AXARAARACAO 
OOooo00°o 
aed aed cad and aad and cud aad 
— oO 

RRNOKRRVS 


0 
177770 


076020 
076061 
076601 
006600 


MACY11 30A(1052) 
UNIBUS MAP REGISTER DEFINITIONS 


; UNIBUS 





LKS=177546 
LKVEC=100 


EXERCISER REGISTER 
UBEDB= 170000 


UBEVEC= 510 
MASS BUS TESTER REGISTERS 

MBTCS1= 160100 
MBTWC= 160102 
MBTBA= 160104 
MBTMR2= 160106 
MBTCS2= 160110 
MBTST= 160112 
MBTER= 160114 
MBTAS= 160116 
MBTDB= 160120 
MBTMR1= 160124 
MBTDT= 160126 
MBTBAE= 160174 
MBTCS3= 160176 
MBTVEC= 774 
MBTPSW= 776 

T= 10 
EISOPT= 040 
FPOPT= 020000 
CISOPT= 
MBTOPT= 0 


“EQUIV BIT12.PSM 
“EQUIV BIT11.REG 
CALLHANDLER=10 


KM=0 
a 


PUM=30000 
UBREAK=177770 


;OPCODES USED IN 1174 CISP TESTS 


L2D0= 076020 
ah 076061 

74C= 076601 
Cistst= 6600 





3 
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;DATA BUFFER 


CYCLE COUNT 

[BUS ADDRESS 
;CRONTROL REGISTER 1 
ERROR CLEAR 


*SMULTI-EXERCISER GO 


CONTROL REGISTER 2 


Z INTERRUPT VECTOR 


MISCELLANEOUS BIT ASSIGNMENTS (USED IN OPT.CP) 
KTOPT= 0000 


;BELOW BIT ASSIGNMENTS ARE USED 
iy THE CPCHK ROUTINE 

A BIT FOR EACH OPTION PRESENT 
117% CIS OPTION PRESENT BIT 


;LOAD 2 DESCRIPTORS @RO OPCODE 


;LOAD 3 DESCRIPTORS @R1 OPCODE 
;CISP_ DIAGNOSTIC ENTRY OPCODE 
SADDRESS OF A U-DIAGNOSTIC INSTRUCTION 


J 
DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04=0CT=79 09:00 PAGE 13 
CEQKCD.P11 04-OCT-79 08:55, UNIBUS MAP REGISTER DEFINITIONS SEQ 0035 


528 000007 MFPT=7 ;OPCODE FOR MFPT INSTRUCTION USED FOR 1174 ONLY 
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DE Qk 
CEQKCD.P11 04-OCT-79 08:55 CIS OPCODE DEFINITIONS SEQ 0036 
of° -SBTTL CIS OPCODE DEFINITIONS 
531 076021 L2D1 =076021 
532 076022 L2d2 =076022 
533 076023 L2D3 =076023 
5 076024 L2D4 =076024 
535 076025 L2D5 =076025 
536 076026 L206 =076026 
537 076027 L2D7 =076027 
5 076030 MOVC =076030 
539 076031 MOVRC =076031 
540 076032 MOVTC =076032 
541 04 LOCC =076040 
542 076041 SKPC =076041 
543 076042 SCANC =076042 
544 076043 SPANC =076043 
545 076044 CMPC =076044 
546 076045 MATC =076045 
547 076050 ADDN =076050 
548 076051 SUBN =076051 
549 076052 CMPN =076052 
550 076053 CVTNL =076053 
551 076054 CVTPN =076054 
552 076055 CVTINP =076055 
553 076056 ASHN =076056 
554 676057 CVTLN =076057 
555 076060 L3D0 =076060 
556 076062 L3D2 =076062 
557 076063 L3D3 =076063 
558 076064 L3D4 =076064 
559 076065 L3D5 =076065 
L3D6 =076066 
561 076067 L3D7 =076067 
562 076070 ADDP =076070 
563 076071 SUBP =076071 
5 076072 CMPP =076072 
565 076073 CVTPL =076073 
566 076074 MULP =076074 
567 60 DIVP =076075 
5 076076 ASHP =076076 
569 076077 CVTLP =076077 
570 076130 MOVCI =076130 
571 076731 MOVRCI =076131 
572 076132 MOVTCI =076132 
573 076140 LOCCI =076140 
574 076141 SKPCI =076141 
575 076142 SCANCI =076142 
576 076143 SPANCI =076143 
577 076144 CMPCI =076144 
578 076145 MATCI =076145 
579 076150 ADDNI =076150 
580 076151 SUBNI =076151 
581 076152 CMPNI =076152 
582 076153 CVINLI =076153 
583 076154 CVIPNI =076154 


584 076155 CVTNPI] =076155 
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CEQKCD.P11 04-OCT-79 0 
585 076156 
586 076157 
587 076170 
588 076171 
589 076172 
590 076173 
591 076174 
592 076175 
593 076176 
59 076177 
595 076600 
596 
597 
598 
599 
600 000000 
601 
602 
603 
604 
605 
606 000200 
607 
608 000200 000137 003542 
609 000210 
610 000210 000137 002544 
op 000214 000137 002554 
613 000220 000137 003330 
614 
61 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 000224 
636 
637 000046 046570 
638 
639 000052 04 
640 000224 


oak oo 30A(1052) 


S OPCODE DEFINITIONS 


- SBTTL 


=076156 


=076600 


TRAP CATCHER 


L 3 
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-=0 
7*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *'.#2,HALT'' 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


- SBTTL —— ADDRESS(ES) 


-=210 


JMP 
> 


@ASTART 


@ASTART1 
@ASTART2 


-**26-APR-7B, G.W.** 
JMP 


@ASTARTS 


LL RARER 


- SBTTL 


ACT11 HOOKS 


37 JUMP TO STARTING ADDRESS OF PROGRAM 


;ENTRY FOR PID REG. CUTTING AID 


LARA AEREEEKRERRAERERREAERE EKER RARER KRER REREAD 


: THE FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACT11 
“ *LOCATION 46 eae CONTAIN THE ADDRESS OF THE LOCICAL 
THE PROGRAM. 


:*END OF 


:*LOCAT ION 52 IS USED TO SPECIFY PROGRAM OPERATING REQUIREMENTS 


; *AND/OR RES IS ACCOMPLISHED BY SETTING VARIOUS BITS 


STRICTIONS. THIS 


:*T0 A ONE OR A ZERO. THE BITS USED AND THERE MEANING ARE: 


snepepee ee # 


BIT 15= ~' PROGRAM SH 


BE POWER FAILED WHILE RUNNING 


OULD 
NO POWER FAIL DESIRED 


BIT 14=1 PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
=Q RUN TIME IS NOT MEMORY SIZE DEPENDENT 


BITS 13-0 MUST BE ZERO'S 


SSyPC=. 
"WORD  $ENDAD 
“WORD 40000 
* =$SVPC 


;SAVE LOCATION COUNTER 
ESET LOCATION COUNTER 


ZISET LOC. 7 TO ADDRESS SENDAD 
CCATION COUNTER 


40000 
> RESTORE LOCATION COUNTER 


SEQ 0037 
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E 
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641 
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DARI UE SII UISIIIDOISIISIIIEIIOIUUIIUIIIDIIOUDIIUI OI rE ER Titi init ttt 
.SBTTL COMMON TAGS 


3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1200 
SCMTAG: 33START OF COMMON TAGS 


CONTAINS ERROR FLAG 


+s CONTAINS SUBTEST ITERATION COUNT 
SCOPE LOOP 1200 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR  weeioe: 
‘3 TAINS 1200 OF ‘GOOD’ DATA 
: CONTAINS 1200 OF ‘BAD’ DATA 
23 CONTA INS ‘GOOD’ — 
:CONTAINS ‘BAD DAT. 
+ : RESERVED--NOT TO BE USED 
zz TTY KBD STATUS 
7: TTY KBD BUFFER 
eeTTy PRINTER STATUS REG. 1200 
;TTY PRINTER BUFFER REG. 1200 
*S CONTAINS NULL CHARACTER FOR FILLS 
:: CONTAINS # OF FILLER CHARACTERS ae 
:¢ INSERT FILL CHARS. AFTER A ‘LINE F 
* "TERMINAL ne FLAG (aitebres 6 YES) 
: : CONTAINS THE 1200 FROM 
Ic wee WAS OBTAINED 
( ($REGAD) +0) 


OOCOCCO-CCCoOoOo COO 


000000 000000 


OOOO OOCCOOCOOCOSOOCOCSOOO CO-NVNO 


DEF INED 


SEQ 0039 
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DE Qk 
CEQKCD.P11 04-0CT-79 08:55 COMMON TAGS SEC 0040 
698 Oot aes 000000 STIMES: 0 3 7MAX. NUMBER OF ITERATIONS 
699 0013 000000 SESCAPE :0 ;;ESCAPE ON ERROR 1200 
700 001332 177607 000377 SBELL: .ASCIZ Fae :;CODE FOR BELL 
701 001336 077 SQUES: .ASCII 3 QUESTION MARK 
702 001337 015 SCRLF: .ASCII <i$> ; CARRIAGE RETURN 
703 001340 000012 SLF: eASCIZ <12> TLINE FEED 
704 001342 000000 ERRRTN: .WORD 
705 001344 000044 SFLBUFF:.BLKB 44 ; BUFFER FOR FLOATING POINT CONVERSION 
706 001410 000000 Ss 
707 001412 000000 $ACO: .WORD : EXTENDED EXPONENT VALUES 
708 001414 000000 $AC1:  .WORD ;FOR THE SIX FLOATING POINT 
709 001416 000000 $AC2:  .WORD ACCUMULATORS 
710 001420 000000 $AC3:  .WORD 
711 001422 000000 $AC4:  .WORD 
712 001426 000000 5: WORD 
713 001426 000000 SSTMP4: .WORD 
714 001430 000000 SSTMPE: .WORD 
715 001432 000004 FLTMPO: .BLKW 4 FLOATING POINT DBL PREC BUFFER 
716 001442 000004 FLTMP1: .BLKW 4 
717 001452 001454 TKBFRP: .WORD TKBFR ;POINTER FOR KEYBOARD BUFFER 
718 001454 000011 TKBFR: .BLKW 17 KEYBOARD BUFFER 
719 001476 000000 NOTYPE: .WORD NO TYPEOUT Ape (INHIBIT WHEN SET) 
720 001500 000000 OPT.CP: .WORD ;CPU_OPTION FLAGS 
721 001502 000 KBI11E: .BYTE 0 > WITHOUT ~~ CACHE 
722 001503 000 KB11EM: .BYTE 0Q ; WITH MP CACHE 
723 0015 000 KB11(CM: .BYTE QO [KB11CM FLAG (1170 ai “¢ MODS) 
724 001505 000 CISP: .BYTE 0 ;CISP OPTION PRESENT F 
725 001506 000004 SSAVPAR : -BLKW 4 :USED BY INTERUPT SERVICE ROUTINE 
726 001516 000000 SSAVPSW: . WORD :DITTO 
727 0015 000006 SRTRN: RIT ;RETURN FOR T-BIT TRAP 
728 001522 000000 VADR:  .WORD ;BUFFER FOR VIRTUAL ADDRESS 
729 001524 PA1500: .WORD ;BUFFER FOR PHYSICAL ADDRESS BITS<15:00> 
730 001526 000000 PA2116: .WORD ;PHYSICAL ADDRESS BITS<21:16> 
731 001530 000 NEXEC: .BYTE NO EXECUTE poy er i EXECUTION WHEN SET) 
732 001531 000 MMON:  .BYTE ;MEMORY MGMT FLAG(MGMT IS ON WHEN NON-ZERO) 
733 001532 000 Qv: -BYTE ;QV FLAG(QV PASS 
001533 000 AA: -BYTE ;AUTO ACCEPT FLAG (AA PASS WHEN SET) 
735 001534 000000 FACTOR: .WORD RELOCATION FACTOR (NUMBER 
001536 000000 $FACTOR: . WORD ;BYTES ABOVE BASE CODE) 
737 001540 000000 FRSTAD: .WORD :FIRST ADDRESS OF SECTION —— EXECUTED 
7 001542 000000 FRSTMEM: . WORD SADDRESS OF FIRST FREE ME 
739 001544 000000 LSTMEM: . WORD : ADDR =e OF rr FREEE MEMORY (IN 28k) 
740 001546 000000 NEXPAR: .WORD NEXT AS PUT IN PARO 
741 001550 123456 SLONUM: .WORD 123456 ;LOW 16 BITS OF RANDOM 
742 001552 065432 SHINUM: .WORD 65432 HIGH 16 BITS OF RANDOM NUMBER 
eb Ooleep he 377 377 NULLS: .BYTE $33 377, $77, QO ;BUFFER FOR PRINTER TEST 
745 001560 000060 SUBPASS:.WORD 60 ;SUB-PASS COUNT _IN ASCII 
746 001562 000000 SERPSW: .WORD ERROR PSW FOR TYPEOUT 
747 001564 000000 EXITFL: .WORD 
748 001566 000000 OL DBASE : . WORD ; SOURCE BASE ADDRESS FOR DEVICE RELOCATION 
749 001570 000000 NWBASL: .WORD :DEST ADDRESS FOR DEVICE RELOC BITS<15:00> 
750 001572 ‘000000 NWBASH: .WORD sDEST ADDRESS FOR DEVICE RELOC BITS<21:16> 
751 001574 000000 IOWC: .WORD ;TWO"S COMPLIMENT WORD COUNT FOR DEVICE RELOC 
752 001576 000000 DEVICE: .WORD 
753 001600 000000 DEVINDX: .WORD DEVICE INDEX (0 TO 7) 
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754 001602 000000 UNITNO: .WORD DEVICE UNIT NUMBER 

755 001604 000000 RNTBINX: . WORD ; INDEX_TO RUN TABLE 

756 001606 000000 MXMMHI: .WORD ;B1TS<21:16> OF LAST MEM ADDRESS ON SYSTEM 

757 001610 000000 MXMMLO: .WORD ;B1TS<15:00> OF LAST MEM ADDRESS ON SYSTEM 

758 001612 000000 RP310: .WORD ;DATA TO LOAD INTO RPO3 CS REGISTER 

759 001614 000000 RP311: . WORD :RPOS FLAG FOR FIRST 2K OF PROGRAM 

760 1616 000000 RK10:  .WORD ;DATA TO LOAD INTO RKOS ¢s REGISTER 

761 1 000000 RK11: WORD ;RKOS FLAG FOR FIRST 2k OF PROGRAM 

762 001622 000000 RP411: . WORD 3R FLAG FOR FIRST 2K OF PROGRAM 

763 001624 000000 RS11: . WORD 7RSO4 FLAG FOR FIRST 2k OF PROGRAM 

764 001626 000000 MTICKS: .WORD ELAPSED RUN TIME IN MINUTES 

765 001630 000000 LTICKS: .WORD ;LOW BYTE=NUMBER OF CLOCK INTERRUPTS (0 TO 59) 

766 [HIGH BYTE=ELAPSED RUN TIME IN SECONDS(O TO 59) 

767 001632 000000 LD2PNT: .WORD 0 ;NEXT 3 WORDS USED FOR CISP DETECTION 

7 001634 000000 LD2PT1: .WwORD 0 

769 001636 0006000 LD3PNT: .WORD 0 

770 001640 000000 SMAINT: .WORD ; CURRENT VALUE IN MAINTENANCE REGISTER 

771 001642 000010 SYSSIZE:.BLKW 10 SYSTEM SIZE TABLE(ONE ENTRY FOR EACH DEVICE) 

772 000007 RUNTBL: .BLKW 7 [RUN TIME TABLE(ONE ENTRY FOR EACH 2k BLOCK) 

773 ~=001700 RUNTRAK: .BLKW 7 RUN TRACK TABLE(ONE ENTRY FOR EACH 2k BLOCK) 

774 001716 177777 MAPTBL: .WORD <-1 ;MAP TABLE(ONE BYTE FOR oie UNIBUS pea LU 
5 001720 177777 WORD -1 UNUSED=377, USED=LOW 5 BITS OF MAP ADDRESS 

776 001722 00002 UBESAV: .BLKW 2 BASE ADDRESS OF UBE TRANSFER IN My sy? 

777 ~=001726 00002 UBEADR: .BLKW 2 :ADDRESS THAT GETS LOADED INTO UBE BA REG 

778 001732 000002 ERRBA: .BLKW 2 318 BIT UNIBUS ADDRESS WHEN DEVICE DETECTED AN ERROR 

779 .SBTTL DEVICE HANDLER STATUS WORDS 

780 :* EACH WORD HAS THE FOLLOWING BIT ASSIGNMENTS: 

781 s* 7 HANDLER READY 

782 7* 8 REPEAT LAST FUNCTION 

783 :* 15 ERROR 

784 001736 000200 RP3HSTAT:.WORD 200 ;RPO3 

785 001740 000200 RKHSTAT:.WORD 200 :RKO5 

786 001742 000200 SPAREO: .WORD 200 

787 001744 000200 SPARE 1: 200 

788 001746 000200 RP4HSTAT: .WORD 200 7RPO4 

789 001750 000200 RSHSTAT:.WORD 200 7RS04 

790 001752 000200 -WORD 200 ; SPARE 

ah 001754 000200 -WORD 200 ; SPARE 

793 -SBTTL DEVICE HANDLER WORD COUNTS 

794 se THIS TABLE GETS LOADED BY THE 1/0 

795 5* RELOCATION ROUTINE WITH THE TWO"S COMPLIMENT WORD 

796 : Sel COUNT FOR THE TRANSFER FOR THE PARTICULAR DEVICE. 

797 001756 000000 RP3HWC: .WORD ;RPO3 

798 001760 000000 RKHWC: .WORD 3RKO5 

799 001762 000000 - WORD ; SPARE 

800 001764 000000 - WORD ; SPARE 

801 001766 000000 RP4HWC: .WORD 7RPO4 

ae 001770 000000 RSHWC: .wORD 7RSO04 

804 -SBTTL DEVICE HANDLER OLD BASE ADDRESS 

805 s# THIS TABLE GETS LOADED BY THE 1/0 ne tro te 

806 s* WITH THE BASE ADDRESS OF THE SOURCE DATA FOR THE 

807 bd DEVICE THAT IS GOING TO TRANSFER THE DATA, 

808 001772 000000 RP3OLD: .WORD ;RPO3 

809 001774 000000 - WORD 


D 4 
DEQKC=D PDP 11/70=74MP CPU ete sagee: MACY11 30A(1052) 04-OCT-79 DS Se PAGE 20 


CEQKCD.P11 04-OCT-79 08 DEVICE HANDLER OLD BASE ADDR SEG 0042 
810 001776 000000 RKOLD: .WORD ;RKOS 
811 002000 000000 . WORD 
812 002002 000000 . WORD ; SPARE 
813 002004 000000 . WORD ; SPARE 
814 002006 000000 - WORD 
815 002010 000000 - WORD 7 SPARE 
816 002012 000000 RP4OLD: .WORD ;RPO4 
817 002014 000000 . WORD 
818 002016 000000 RSOLD: .wORD 3RS04 
819 002020 000000 . WORD 
821 -SBTTL DEVICE HANDLER NEW BASE ADDRESSES 
822 s* THIS TABLE GETS LOADED BY THE I/0 RELOCATION ROUTINE 
823 :* WITH THE BASE ADDRESS OF THE DESTINATION FOR THE 
824 hed PARTICULAR DEVICE THAT IS GOING TO DO THE TRANSFER. 
825 002022 000000 RP3NWL: .WORD 7RPO3 
826 002024 000000 RP3NWH: .WORD 
827 002026 000000 RKNEWL: .WORD ;RKO5S 
828 002030 000000 RKNEWH: .WORD 
002032 000000 . WORD ; SPARE 
830 002034 900000 . WORD 
831 002036 000000 . WORD ; SPARE 
832 002040 090000 - WORD 
833 002042 000000 RP4NWL: .WORD 7RPO4 
834 002044 RP4NWH: .WORD 
835 002046 000000 RSNEWL: .WORD 3RS04 
te 002050 000000 RSNEWH: .WORD 
838 -SBTTL DEVICE HANDLER UNIT NUMBER 
839 :* THIS TABLE GETS LOADED BY THE I/0 RELOCATION ROUTINE. 
840 s¢ IT TELLS THE DEVICE HANDLER WHICH UNIT NUMBER iS 
841 3* TO DO THE TRANSFER. 
842 002052 000000 RP3UNIT: . WORD ;RP 
843 002054 000000 RKUNIT: .WORD ;RKOS 
844 002056 000000 - WORD ; SPARE 
845 2 000000 . WORD ; SPARE 
846 002062 000000 RP4UNIT: . WORD 7RP04 
4 002064 000000 RSUNIT: .WORD 3RS04 
849 -SBTTL ADDRESS OF THE DEVICE HANDLERS 
850 ;* THIS TABLE CUNTAINS THE ADDRESS OF THE DEVICE HANDLER 
851 :* ROUTINES. IT IS USED BY THE I/0 RELOCATION ROUTINE 
852 3* TO TRANSFER CONTROL TO THE DEVICE HANDLER. 
853 002066 046610 RP3HANA:.WORD RP3DRV ;RPO3 
854 002070 047226 RKHANA: .WORD RKDRV ;RKO5 
855 002072 000000 . WORD 7 SPARE 
856 002074 000000 - WORD 7 SPARE 
857 002076 047622 RP4HANA:.WORD RP4DRV ;RPO4 
Bo6 002100 050172 RSHANA: .WORD RSDRV  ;RS04 
860 -SBTTL DEVICE HANDLER DISK ADDRESS TABLE 
861 s* THIS TABLE GETS LOADED BY THE DEVICE HANDLER WITH THE 
862 od DISK ADDRESS(SECTOR AND CYLINDER) OF THE CURRENT 
863 3* TRANSFER, 
864 002102 000000 RP3HDA: .WORD ;RPOQ3 DISK ADDRESS 


865 002104 000090 RP3HDC: .WORD ;RPO3 DESIRED CYLINDER 
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RKHDA: .WORD ;RKOS DISK ADDRESS 
. WORD ; SPARE 
RP4HDA: .WORD 
RP4HDC: .WORD ;RPO4 DESIRED CYLINDER 
RSHDA: .WORD 3RSO4 DISK ADDRESS 
.SBTTL DEVICE HANDLER FUNCTION TABLE 
;* THIS TABLE GETS LOADED BY THE DEVICE HANDLERS 
3* AND THE DEVICE ats ROUTINES. IT TELLS THE ROUTINES 
3* WHICH FUNCTION TO DO NEXT. 
RP3FUN: .WORD O RPDS 
RKFUN: .WORD ;RKOS 
. WORD 3 SPARE 
RP4FUN: .WORD sRPO4 
RSFUN: .WORD 7RS04 
-SBTTL DEVICE HANDLER RETRY COUNT 
38 THIS TABLE GETS LOADED BY THE DEVICE HANDLERS AND IS USED 
:* BY THE DEVICE SERVICE ROUTINES. IF AN ERROR OCCURS 
y* THE DEVICE SERVICE ROUTINE WILL RETRY THE FUNCTION UNTIL 
3* ed IN THIS TABLE GOES TO ZERO. IT IS INITIALIZED 
"* - = 
RP3TRY: .BYTE ;RPO3 
RKTRY: .BYTE ;RKOS 
-BYTE 7 SPARE 
RP4TRY: .BYTE ;RPO4 
RSTRY: -.BYTE 7RS04 
EVEN 
.SBTTL DEVICE REGISTER TABLES 
rs THE FOLLOWING TABLES CONTAIN THE oo. ADDRESS FOR 
:* THE DEVICES USED BY THIS PROGRAM. IF A DEVICE IS PLACED 
7* AT A NON-STANDARD ADDRESS THE APPROPRIATE TABLE CAN BE 
;* CHANGED AND THE PROGRAM WILL OPERATE THAT DEVICE. 
* 


* EXCEPTION--SEE DOCUMENTATION FOR RPC3 AND RPO4 PROBLEMS. 
- SBTTL yh REGISTERS 
RP3DS: .WORD 176710 ;DRIVE STATUS 
RP3ER: .WORD 176712 :ERROR REGISTER 
RP3CS: .WORD 176714 ;CONTROL AND STATUS 
: WORD COUNT 


RP3BA: .WORD 176720 :BUS ADDRESS 

RP3DA: .WORD 176724 ;DISK ADDRESS 

RP3DC: .WORD 176722 ;DESIRED CYLINDER 

RP3VEC: .WORD 254 : INTERRUPT VECTOR 

RP3PSW: .WORD 56 Z INTERRUPT VECTOR+2 

.SBTTL RK11/RKO5 REGISTERS 

RKDS: .WORD 177400 ;DRIVE STATUS 

RKER: .WORD 177402 ERROR REGISTER 

RKCS: .WORD 177404 ;CONTROL AND STATUS 
: [WORD COUNT 


RKBA: .WORD 177410 BUS ADDRESS 

RKDA: .WORD 177412 ;DISK ADDRESS 
RKVEC: .WORD 220 ; INTERRUPT VECTOR 
RKPSW: .WORD 222 S INTERRUPT VECTOR+2 


SEQ 0043 


fond 3 
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CEQKCD.P11 04-OCT-79 08:55 RK11/RKOS REGIS SEQ 0044 
922 
923 . SBTTL ot pg | REGISTERS 
924 002202 176700 RPSCS1: 176700 ;CONTROL AND SIATUS #1 
925 002204 176702 RP4WC: “WORD 1767G2 WORD COUNT 
926 002206 176704 RP4BA: .WORD 176704 ;BUS ADDRESS 
927 002210 176750 RP4BAE: .WORD 176750 ;BUS gets B ati cte 
928 002212 176706 RP4DA: .WORD 176706 ;DISK ADDRESS 
002214 176710 RP4CS2: .WORD 176710 ;CONTROL AND STATUS #2 
930 002216 176752 RP4CS3: .WORD 176752 :CONTROL AND STATUS #3 
931 002220 176712 RP4DS: .WORD 176712 : DRIVE STATUS 
932 002222 176714 RPGER1: .WORD 176714 ;ERROR REG #1 
933 002224 176734 RP4DC: .WORD 176734 :DESIRED CYLINDER 
934 002226 176740 RPGER2: .WORD 176740 ;ERROR REG #2 
935 002230 176742 RPGER3: .WORD 176742 :ERROR REG #3 
936 002232 176736 RPCC:  .WORD 176736 ;CURRENT CYLINDER 
937 002234 176732 RP4OF: .WORD 176732 :OFFSET REGISTER 
938 002236 000254 RP4VEC: .WORD 254 ; INTERRUPT VECTOR 
ty 002240 000256 RP4PSW: .WORD 256 ; INTERRUPT VECTOR+2 
941 -SBTTL RH70/RSO4_REGISTERS 
942 002242 172040 RSCS1: .WORD 172040 : CONTROL AND STATUS 41 
943 002244 172042 RSWC:  .WORD : 72042 COUNT 
944 002246 172044 RSBA: .WORD 172044 “BUS ADDRESS 
945 002250 172070 RSBAE: .WORD 172070 BUS ADDRESS EXTENDED 
946 002252 172046 RSDA: .WORD 172046 ;bISK ADDRESS 
947 002254 172050 RSCS2: .WORD 172050 ;CONTROL AND STATUS #2 
948 002256 172072 RSCS3: .WORD 172072 ;CONTROL AND STATUS #3 
949 002260 172052 RSDS: .WORD 172052 :DRIVE STATUS 
950 002262 172054 RSER: .WORD 172054 ;ERROR REG 
951 002264 000204 RSVEC: .WORD 204 INTERRUPT VECTOR 
o36 002266 000206 RSPSW: .WORD 206 ; INTERRUPT VECTOR+2 
954 -SBTTL UNIBUS EXERCISER REGISTER ADDRESS TABLE 
955 hel THIS TABLE IS ASSEMBLED FOR UBE #0. IF THE UBE 
956 ¢* ADDRESSES ARE CUT FOR OTHER THAN UNIT A." THE PROGRAM 
957 ad WILL CHANGE THIS TABLE. THE PROGRAM L FOR_A 
958 ;* UBE AT ADDRESSES - 770002, 770022, 770032, * AND 770042. 
959 002270 170002 UBETBL: .WORD UBECC YCLE COUNT 
960 002272 170004 -WORD _UBEBA BUS ADDRESS REG 
961 002274 170016 -WORD UBECR2 ;CONTROL REGISTER #2 
962 002276 170006 WORD UBECR1 CONTROL REGISTER #1 
963 0023500 170010 WORD UBECLR ;UBE CLEAR ADDRESS 
964 002302 000510 -WORD UBEVEC _; INTERRUPT VECTOR 
44 2 000512 -WORD  UBEVEC+2 INTERRUPT VECTOR +2 
967 - SBTTL Yo BUS TESTER REGISTER ADDRESSES 
968 s* THE PROGRAM IS ASSEMBLED WITH ADDRESSES FOR A MBT 
969 i* AT 770100. “4 aie a. a. + a ity vty THE PROGRAM 
970 7 WILL CHANGE T LOOKS FOR A UBE 
971 tad AT ADDRESSES 470100 570200, "770300. AND 770400. 
972 002306 160100 MBTTBL: .WORD MBTCS1 ;CONTROL AND STATUS #1 
973 002310 160102 “WORD MBTWC  :WORD COUNT 
974 002312 160104 -WORD MBTBA BUS ADDRESS 
975 002314 160174 -WORD MBTBAE :BUS ADDRESS EXTENDED 
976 002316 160706 -WORD MBTMR2 ;MAINTENANCE REGISTER 42 
977 002320 160110 -WORD MBTCS2 CONTROL REGISTER #2 
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160400 


STATUS REGISTER 


ERROR REGISTER 


;CONTROL REGISTER #3 
; INTERRUPT VECTOR 


7 INTERRUPT VECTOR+2 
: DRIVE TYPE REGISTER 


:MASS BUS TESTER #4 
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FERRARA ARR RERTREAERER AERO TERRA ERR ERRERRR REAR R ERR R ERE E ERE RES 
-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION 4° EACH ERROR THAT CAN OCCUR. 

[*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

; *LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE > PERTINENT. 
*NOTE IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 


* eNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
* EM ;:POINTS TO THE ERROR MESSAGE 
* DH :;POINTS TO THE DATA HEADER 
i* DT :zPOINTS TO THE DA 
ie DF ::POINTS TO THE DATA FORMAT 
SERRTR: 
ITEM 1 
1 UNEXPECTED TRAP TO 4 
DH1 :PCOFTP PHYSC PSwW CPUERR 
DT1 7 VADR,VADR,$TMPO, STMP2 
DF1 :0,1,0,0,0 
ITEM 2 
2 ;UNEXPECTED TRAP TO 10 
DH2 sPCOFTP PHYSPC PSW 
Te ; VADR, VADR,$TMPO 
sITEM 3 
EM3 UNEXPECTED TRAP TO 250(MGMT) 
DH3 :PCOFTP PHYSPC PSW MMR () MMR2 
oT :VADR, VADR,$TMPO, ,$TMP2,,$TMP3 
ITEM 4 
EMG UNEXPECTED TRAP TO 114 
DHS :PCOFTP PHYSPC PSW ERADREG MEMERRREG 
DTS : VADR, VADR,$TMPO, $TMP3,$TMP2 
ITEM 5 
EMS ;PARITY ERROR DURING DATA CHECK 
DHS :SRCADR DSTADR ERRADREG MEM ERR REG 
Bre 7$TMPO,PA1500, $TMP3,$TMP2 
ITEM 6 
M6 ERROR DURING CHECK OF RELOCATED DATA 
DH6 sSRCADR DSTADR 
DT6 > $TMPO,PA1500 
DFS 
ITEM 7 
0 
0 
0 
0 
: ITEM 10 
—M10 ; ERROR DURING DATA CHECK=RELOC WAS BY 1/0 
DH10 SRCADR ODSTADR SEV ICE THAT DID XFER 
DT10 “$TMPO. VADR,$TMP2,$TMP 


SEQ 0046 
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1044 002442 066466 10 
1045 ;1TEM 
1046 002444 0665 —EM11 
1047 002446 066551 DH11 
1048 002450 066574 D111 
1069 002452 066572 DF11 
1050 : ITEM 
1051 002454 066602 EM12 
1052 002456 066640 DH12 
1053 002460 066656 DT12 
1054 002462 066654 DF12 
1055 s ITEM 
1056 002464 2 EM13 
1057 002466 066720 DH13 
1058 002470 066656 DT12 
1059 002472 066654 DF12 
1060 : ITEM 
1061 002474 066735 EM14 
1062 002476 066762 DH14 
1063 002500 067002 DT14 
1064 002502 067014 DF14 
1065 s ITEM 
1066 002504 067020 EM15 
1067 002506 000000 0 
1068 002510 000000 0 
10469 002512 000000 0 
1070 ITEM 
1071 002514 066735 EM14 
1072 002516 067034 DH16 
1073 002520 7 DT16 
1074 002522 067061 DF16 
1075 ITEM 
1076 002524 067100 EM17 
1077 002526 066551 DH11 
1078 002530 066574 D111 
1079 002532 066572 DF11 
1080 
1081 Z ITEM 
1082 002534 067144 EM20 
1083 25 066320 DH6 
1084 002540 066574 DT11 
1085 002542 066572 DF11 
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30.1,3,0 

;BIT(S) ian A - ple tne REG 
;GOOD DAT BAD 

:$TMPO, -STMP1 


. ’ 


;UNIBUS EXERCISER NON-EXISTANT MEMORE Y 
rae 3 Ne ADDRESS 


MASS BUS TESTER NON-EXISTANT MEMORY 
PHYSICAL ADDRESS 


‘ocapetan ? ae ERROR 
SSTMP4 ,SREG2, $TMP6, $REG3 


34, ° e 


;DEVICE HUNG 


;FLOATING POINT ERROR 
7FLTMPO,$REG2,FLTMP1 , $REG3 


RO FAILED TO wt CORRECTLY ON MFPT 
:GOOD DAT BAD DAT 
MPO, STMP1 


:CIS INSTRUCTION FAILURE 


SEQ 0047 
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002544 013737 177570 177570 START1: MOV @ASWR, aASWR 
002552 00077. BR TART 
.SBTTL PROGRAM INITIALIZATION 


LRA ERR RRR ERR EERE RARER RATER eee 
-SBTTL MICRO-BREAK REGISTER TEST 

7*THIS TEST IS EXECUTED BY STARTING THE PROGRAM AT ADDRESS 214. 
:*THIS TEST REQUIRES A MAINTENANCE ~_ AND OPERATOR INTERVENTION. 
>*THE PROCESSOR SHOULD STOP 8 TIMES. FOLLOWING IS THE DATA 

;* THAT SHOULD Of AO THE MICRO=ADRESS DATA LIGHTS EACH TIME: 


-* 
7 


3 


DDRII ISISIISISIDIOISIDIIIOIDIDIUIDIDIIOIOIOIOIOIIIOIOIIOIOIIOIOI IIT TOI TOT TTI TTI TTI TIT 
START2: MOV 00,SP ;SETUP THE SP 
000034 MOV #STRAP, @ATRAPVEC™ ; SETUP a VECTOR 
000030 #SERROR, @4EMTVEC; SETUP EMT VECTOR 
000377 #377 ,RO PUT MICRO-BREAK DATA IN RO 
001502 @4KB11E :1S THIS A KB11-E OR KB11-EM PROCESSOR? 
1$ ‘BR IF NOT. 8 SIT U-BREAK REGISTER 
177777 #177777 ,R0 7KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 
fA dk' : @4UBRE AK :LOAD U BREAK REG 


177770 
177770 


000125 P 
001562 } 31S THIS A KB11-E OR KB11EM PROCESSOR? 
7 2$ ;BR_IF NOT. 8 BIT U-BREAK REGISTER 
096350, yey, ‘~ a 3KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 


177770 RO, SPUBREAK 


UBRERR 
000252 #252,R0 
001502 @4KB11E 71S THIS A KB11~E OR KB11-EM PROCESSOR? 
3$ ;BR_IF NOT. 8 BIT U-BREAK REGISTER 
125252 #125252, “+4 3KB11-E AND KB11-EM HAVE 16 BIT U-BREAK REGISTER 
177770 3$: RO, @FUBRE AK 
177770 RO, tet 


B UBRK 
176356 UBRERR: j RO,STMPO 
177770 =00132% MO @#UBREAK , AAS TMP) 
002554 001212 #START2, @ASLPERR 


ERROR 11 
; TEST TO ENSURE U BREAK COMPARATORS DO NOT COME ON. 
012737 000100 177770 UBRK2: MOV #100. a#UBR EAK PUT SAFE VALUE IN REG 
104400 002756 TYPE ,05$ as ie ASCIZ STRING 
000421 BR 64$ GET OVER THE ASCIZ 
::65$: .ASCIZ /SET MAINT TO STOP ON M!CRO-BREAK/<CRLF > 


WWNWWWWAWIANWW NOMIDMININININININD 2 2 2 PP OP es OS oO 
Ree eee eT ROR UNS Sa Nau FF Wm OSR VR AR USS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Saw 
-o0 
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ty 
45 
46 
47 
48 
ed 
50 
53 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
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003026 


177770 
177770 
000125 
177770 


177770 


177770 
177776 
003264 


001 
010 
200 


005010 
900000 
005010 


000010 
000012 


177770 


177776 


177770 


005020 
005200 
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64$: 


37678: 
66$: 


3,698: 
683: 


UBRTBL: 


INSTBL: 


BR 
-BYTE 


-EVEN 
. WORD 
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-67$ 


66$ 3:G 
/HIT CONTINUE/<CRLF> 


#12, a4RESVEC 
#2, @ARESVEC+2 
2$,R5 


#10,R1 
#UBRTBL +1 ,R2 
(R2) + ,@#UBREAK 


@4UBREAK 
R1,1$ 
oe 


@AUBREAK 

#1100,SP 

#6, AAERRVEC 

#2, QMERRVEC+2 
#BIT14, Y antes 

4700.8 

#38 ¢SP) 

RO 


#7 ,R1 
#INSTBL+2,R2 
(R2)+, (PC) 
R1,4$ 

4 aa aarsrasine 
AMUBRTBL ,R2 
or 


(R3)+, (PC) 


R1,6$ 

(R2) , AAUBREAK 
aaPsw 

698 


68$ 
/DONE/<CRLF > 


TYPE ASCIZ STRING 
T OVER THE ASCIZ 


SET UP R5 FOR MARK INSTR 
SET SOB COUNT 
;GET ADRS OF UBREAK DATA ae 
;LOAD MICRO-BREAK FROM TABLE 
ZEXEC RES INSTR (ROM ADRS 000) 


; CONS INUE 
SET MICRO-BREAK DATA PATTERN 
EXEC MARK (ROM ADRS 252) 


RESTORE SP 


:GO TO SUPER MODE 

SET SUPER SP 

;SETUP STACKK FOR JSR INSTR 
TUP RO 


fe 4 

7SET SOB COUNT 

GET ADRS OF TABLE OF INSTRUCTIONS 
:GET INSTRUCTION 

EXECUTE INSTRUCTION 

; CONT INUE 


[PUT SAFE VALUE IN UBREAK REG 


;LOAD UBREAK REG FROM TABLE 

:GET INSTR FROM TABLE 

EXECUTE INSTR. PROCESSOR SHOULD STOP 
WITH THE CORRECT ROM ADR IN THE LIGHTS 


; CONTINU 
;PUT SAFE VALUE IN UBREAK REG 
;GO BACK TO KERNEL MODE 
2: TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


START 
0.1.2.4,10,20,40,200,100 


— 


10,5010,5020,5040,0,5200,207,5010 
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START3: MOV #1100,SP 
000034 MOV #S TRAP, AATRAPVEC UP_TR 
TYPE ,65$ gciwe asciz STRING 
BR 64$ ;GET OVER THE ASCIZ 
-ASCIZ <15><12>/PID REGISTER SETUP AID/ 


RENeSSS 


TYPE ,67$ 23 TYPE ASCIZ wing) 
BR 66$ ;GET OVER THE ASCIZ 
-ASCIZ <15><12>/TYPE IN THE DESIRED PROCESSOR SERIAL NUMBER: / 


RDDEC ;GET THE NUMBER, 

TYPE ,69$ ss TYPt ASCIZ STRING 

BR 68$ ;GET OVER THE ASCIZ 
3769$: .ASCIZ <15><1 2>/ THE OCTAL EQUIVALENT IS : / 


68$: 
TYPOC 7 TYPE THE NUMBER IN OCTAL 
BR START3 


Besse 


DIORA I IISIISISISIIOISISIIOIIIOIOIDIOIOIIOIUIOIOIOIOIOIIOIIOISIOIOIOI TORII TOTTI ITT TRAST 
START: MOV MKERSTK,SP 7SET KERNEL STACK PTR 

001552 MOV #76543, Q4$HINUM ; INITIALIZE RANDOM NUM GEN 

001550 MOV #123456, a4$LONUM 


;DETERMINE HOW PROGRAM WAS LOADED AND WHAT MODE (IF ACT11) 


AND SET MEMORY PROTECTION 

CL avav :SET NOT QV NOR AA MODE 

(PC) + :SET NOT XXDP 

XXDP : 0 ;XXDP INDICATOR 
XXDPC: 0 :XXDP CHAIN MODE INDICATOR 

Ci (PC)+ ;CLEAR MEMORY PROTECTION LIMIT 
PROT: -WORD 0 ;WILL CONTAIN MEM PROT LIMIT 

046574 T ——- BRANCH IF NOT QV 


001532 _—~ SET ACT11 QV MODE 


— me a ed nd = 2s 2 ed 


ae cel ed ct oe cel ced cee ced ccd cae cae ae cd ce ce ee ced ced cnt ce ce ce 
SOMNAMRWH=O 


MINN NNNONNfPononw 


1$: 2$ 
001533 SP, @AAA :SET ACT11 AA MODE 
BR 3$ 
000042 es: “ ;BRANCH IF NCT IN CHAIN MODE 
003571 SP, AAXXDPC ;SET CHAIN MODE INDICATOR 


-SET MEMORY PROTECTION LIMITS 
001532 S$: TST away :BRANCH IF QV OR AA 


003570 QAXXDP :BRANCH IF NOT VIA XXDP 
005700 003574 MO #5700, @#PROT :PROTECT XXDP MONITOR 
MEMSIZ: Aer sal STMEM “SET VALUE INTO LSTMEM 
S @4PROT, aALSTMEM ‘SET PROTECTION 
012737 001542 SENDYAgse. a4vFRSTMEM :SET FIRST RELOCATION ADDRESS 


;GET ADDRESS OF THE LAST MEMORY LOCATION ON THE SYSTEM 
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1254 :SIZE MEMORY AND COMPARE IT WITH THE SYSTEM SIZE REGISTER 
1255 [PRINT A WARNING IF THEY DISAGREE. 

1257 003700 052767 000200 055716 BIS #B1T07,$KT11 

1258 003706 004767 055644 JSR PC,$SIZE 

1259 003712 062767 000037 056222 ADD #37, $LSTBK 

1260 003720 016702 056216 MOV $LSTBK,R2 :COPY LAST BLOCK COUNT 
1261 003724 023702 177760 CMP @ASIZELO,R2 EQUAL ? 

1262 003730 001551 BEQ OkSIZ 

1263 003732 012737 062144 000034 MOV #STRAP, @ATRAPVEC :SET UP TRAP VECTOR 
1264 003740 104400 003746 TYPE ,65$ :TYPE ASCIZ STRING 

1265 003744 000433 BR 64$ SGET OVER THE ASCIZ 

1266 3:65$: .ASCIZ <15><12>/WARNING- THE SIZE OF MEMORY IS DIFFERENT FROM THAT/ 
1267 004034 64$: 

1268 004034 104400 004042 TYPE ,67$ ii TYPE ASCIZ STRING 

1269 004040 000425 BR 66$ “GET OVER THE ASCIZ 

1270 ::67$: .ASCIZ <15><12>/ INDICATED BY THE SYSTEM SIZE REGISTER./ 
1271 004114 66S: 

1272 004114 104400 004122 TYPE 69 zz TYPE ASCIZ STRING 

1273 004120 000421 BR 68$ + GET OVER THE ASCIZ 

1274 ::69$: .ASCIZ <15><12>/ SIZEHI SIZELO ACTUAL / 
1275 004164 68$: 

1276 004164 104400 001337 TYPE /SCRLF 

1277 004170 013746 177762 MOV @4SIZEHI,-(SP) :: SAVE @4SIZEHI FOR TYPEOUT 
1278 004174 104404 TYPOS iGO TYPE--OCTAL ASCII 

1279 004176 006 .BYTE 6 TYPE 6 DIGIT(S) 

1280 004177 000 “BYTE 0 SUPPRESS LEADING ZEROS 
1281 004200 104400 004206 TYPE /71$ +: TYPE ASCIZ STRING 

1282 004204 000404 BR 70$ +:GET OVER THE ASCIZ 

1283 »:71$: .ASCIZ / / 

1284 004216 70$: 

1285 004216 013746 177760 MOV @#SIZELO,-(SP) :: SAVE @#SIZELO FOR TYPEOUT 
286 004222 104404 TYPOS O TYPE=-OCTAL ASCII 

1287 004224 006 .BYTE 6 <P PE 6 DIGIT(S) 

1288 004225 000 “BYTE 0 >: SUPPRESS LEADING ZEROS 
1289 004226 104400 004234 TYPE 73$ +: TYPE ASCIZ STRING 

1290 004232 000404 BR res >:GET OVER THE ASCIZ 

1291 :73$: .ASCIZ / 

1292 004244 O58; 

1293 004244 016746 055672 MOV $LSTBK,-(SP) :7SAVE $LSTBK FOR TYPEOUT 
1294 004250 104404 TYPOS 3GO_ TYPE--OCTAL ASCII 

1295 004252 006 .BYTE 6 Si TYPE 6 DIGIT(S) 

1296 004253 000 “BYTE 0 +: SUPPRESS LEADING ZEROS 
1298 : FORM MXM MXMMLO, AND THE HIGHEST MEMORY ADDRESS BASED ON THE SIZE OF 
1299 : THE MEMORY 

1300 

1301 004254 OKS1Z: 

1302 004254 CLR 

1303 004256 013703 062142 MOV @4SLSTBK,R3 

1304 004262 073227 000006 ASHC #6,R2 :SHIFT TO FORM CORRECT ADDRESS 
1305 004266 052703 000077 BIS #77 ,R3 ‘ENSURE LOWER SIX BITS SET 
1306 004272 062703 000001 ADD #1,R3 

1307 004276 005502 A 

1308 DOOR RTO tok 

1309 004300 010237 001606 MOV R2, @AMXMMH | :SAVE UPPER SIX BITS 
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CEQKCD.P11  04-O0CT= MICRO=BREAK REGISTER TEST 
010337 001610 R3, a4MXMMLO 
001200 AKERSTK, SP :SET STACK PTR 
001200 a*$PASS *CLEAR PASS COUNT 
001537 aaMMON ‘SET MEM MGMT ON IND=NOT ON 
000700 001546 #700, @4NEXPAR ‘SET FIRST "PAR" VALUE 
003574 tie 
001600 001546 #1600, @A#NEXPAR 
000027 i #27.RO 


001626 : MTICKS(R1) 
000092 #2,R1 


177777 + 001716 
001720 


SEQ 0052 


— 
Ww 
= 
oO 


SAVE LOWER 16 BITS 


WWNWNWWWWWA 
ed ed etd ed oe 
WODONAUSWNR— 


8 


SET SOB COUNT 
;SETUP INDEX 
;CLEAR TABLES 


RAD 
QUSWN— 


; CONTINUE 
s INITIALIZE MAP TABLE 


SET SOB COUNT 
ZGET ADDRESS OF HANDLER STAT 


Mrnrnrnrer 
OOo~N 


me kd ed ed od od I 


WWWWNWANAG 
3 


AAAARERERER EL 
WRC OONO'ARW 


BABA 
SONRAR 


ke kk ek ed dd od od ed dt 
FERRE 


. 


001560 


056737 
056742 
177776 


000026 
041630 
174403 
174366 
174362 
174402 
090060 
000062 
000064 
000066 


: CLEAR PROGRAM INDICATORS 
BIS #100,a$ 


#200, (R1)+ 
RO,3$ 

#60, @4SUBPASS 
#TIMEBUF ,RO 
#12,R1 

#60, (RO) + 
R1,4$ 


~(RO) 

#72, a4T IMEBUF +3 
#72, a4T IMEBUF +6 
#340, a4PS 
ASCMTAG, RO 
(R6)+ 


es -R6 
AMSTACK 


SP :: 
#SSCOPE ,a#IOTVEC ; 


INITIALIZE STATUS TABLE 
; CONT INUE 


; INIT SUBPASS TO ASCII 0 
[GET ADR OF TIME BUFFER 
SET SOB COUNT 

: INIT TIME BUFFER 


; INSERT TERMINATOR 
; INSERT COLON 


3;LOCK OUT ALL_ INTERRUPTS 
se tiee LOCATION TO BE CLEARED 


igh ey MEMORY LOCATION 


OOP BACK IF 
is TUP THE STACK POINTER 
:10T Ay dene FOR SCOPE ROUTINE 


#340, avictvecee LEVEL 
VEC afi My os FOR ERROR ROUTINE 


#SERROR, a#EMT 
oars avEMTVEC+2 3:1 
#STRAP, 


@#TRAPVEC 


VEL 
ee FRAP VECTOR FOR TRAP CALLS 


#340, a#TRAPVEC #2; LEVEL 7 


#SPWRDN, @PWRVE 
#340, arPuRVeC +2 : :LEVE 
SPINITIALIZE NUMBER OF ITERATIONS 


SENDCT ,SEOPCT 
STIMES 


SESCAPE 

#1, SERMAX 
#., $LPADR 
#., SLPERR 


TKS 
#TKISR, AATKVEC 
#PR4, @ATKVEC +2 
#TPISR, a#TPVEC 
#PR4 ,AATPVEC+2 


is VECTOR 
ETUP END-OF =-PROGRAM COUNTER 


OW 
“INITIALIZE THE LOOP ADDRESS FOR SCOPE 
[SETUP THE ERROR LOOP ADDRESS 


:SET IE BIT IN KEYBOARD STATUS REG 
SETUP KEYBOARD VECTOR 





DEQKC=D PDP 11/70-74MP CPU 
CEQKCD.P11 T=79 08: 


1366 
1367 
1368 
1369 


seeees 
SESREERSERE 


8 
OnNAOW 


SSEERS REESE ISS 


ee a ee cee ae ce ee a ad ae cae ae ed ce cael cd ed cae cd ee eed 
WAWWAAG 
KRSRSSS 

Mew 


1397 


t 
ES 


sedeanszsse 


ee 
RA 


04-OCT 


005037 


001476 


020000 
177546 
001000 
174260 
000400 


170000 


170006 
170006 


000200 


170020 
000020 


170040 
000040 


170060 
000060 
177777 
89 


XERCISER 
5 


~ 30A(1052) 


CLR 
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ICRO=BREAK REGISTER TEST 


@4PNOTYPE 


SEQ 0053 
CLEAR "NO TYPING’ INDICATOR 


diy BELOW ROUTINE ASCERTAINS WHICH CP & CP OPTIONS THE PROGRAM IS RUN- 


re, ON AND SETS AN INDICATOR 
RRVEC+ 


6$: 


9$: 


16$: 
12$: 


13$: 


14$: 


17$: 


18$: 


MOV we 

MOV We, 

MOV 

MOV #2, 

MOV 144006 ,R2 
SEC 

TSTF RO 

CFCC 

BCS 6$ 

BIS #FPOPT ,R2 
SEC 

TST @ALKS 

BCS 7$ 

BIS MLKOPT ,R2 
SEC 

TST a$TPsS 

BCS 9$ 

BIS #TTOPT,R2 
CLR R3 

SEC 

TST 

BCS 12$ 

CLRB @AUBE CR1 
TSTB @*UBE CR1 
BPL 15$ 

BIS MUBEOPT ,R2 
BR 

SEC 

TST @4UBEDB+20 
BCS 3$ 

MOV #20,R3 

BR 16$ 

SEC 

TST @4UBEDB+40 
BCS 4$ 

MOV #40 ,R3 

BR 6$ 

SEC 

TST @4UBE DB+60 
BCS 5$ 

MOV #60 ,R3 

BR 16$ 

INC #~1 

BNE 15$ 

MOV MUBE TBL ,R4 
MOV RS 

ADD R3,(R4)+ 
SOB R5,18$ 

ROR R3 

ROR R3 

ADD R3,(R4)+ 
ADD R3,(R4) 


IN OPT.CP ACCORDINGLY. 
VEC ;SET UP ERROR TRAP TO RETURN 


AND ALSO RESERVED INST TRAP 

SET 11/70 NON-OPTION BITS 

WILL CLEAR CARRY IF 11/70 FLOATING POINT 
31S AVAIL. COPY FLOATING CC°S INTO PSW 
;BRANCH IF NO FLOATING POINT 

SET FP OPTION AVAIL INDICATOR 

BRANCH IF NO KW11=L 

SET OPTION INDICATOR 


;BRANCH IF NO CONSOLE TTY 


31S UBE1 y-» 
BRANCH IF NO 
71S THIS A TESTER OR EXERCISER? 
BRANCH IF TESTER 
SET INDICATOR 
31S UBE2 THERE? 
;BRANCH IF NO 
7SET OFFSET IN R3 
31S UBE3 THERE? 
BRANCH IF NO 
;PUT OFFSET IN R3 
31S UBE4 THERE? 
;BRANCH IF NO 
;PUT OFFSET IN R3 
;GET ADDRESS OF UBE TABLE 
SET SOB COUNT 
;ADJUST UBE TABLE ENTRIES 
; CONT INUE 
ADJUST OFFSET FOR UBE VECTOR 


ADJUST UBEVEC ENTRY 
ADJUST UBEVEC PSW ENTRY 
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DE Qk 
CEQKCD.P11 04-0C7-79 08:55 MICRO=BREAK REGISTER TEST SEQ 0054 
1422 005130 005003 15$: CLR R3 ZINIT R3 
1423 005132 000261 SEC 
1424 005134 005777 175146 TST @"BT TBL iTS Bann BUS TESTER THERE? 
1425 005140 103403 BCS 20$ ANCH IF 
1426 005142 052702 002000 218: BIS AMBTOPT ,R2 SET OPTION AVAILABLE 
1427 005146 000422 BR 24$ ‘ 
1428 005150 005777 175162 20$: TST aMBTN2 71S MBT2 oo 
1429 005154 103403 BCS 22$ :BRANC H IF NO 
1430 005156 012703 000100 MOV #100,R3 SETUP R3 
1431 005162 000767 BR 21$ 
1432 005164 005777 175150 22$: TST aMB INS 31S MBT3 THERE? 
1433 005170 103403 BCS 23$ ;BRANCH IF NO 
1434 005172 012703 000200 MOV #200,R3 
1435 005176 000761 BR 21$ 
1436 005200 005777 175136 238: TST aMBTNG 31S MBT4 THERE? 
1437 005204 103427 BCS 30$ [BRANCH IF NO 
1438 005206 012703 000300 MOV #300.R3 
1439 005212 000753 BR 21$ 
1440 005214 243: 
1441 005214 000240 NOP 
1442 005216 000240 NOP 
1443 005220 000240 NOP 
1444 005222 012704 002306 MOV AMBTTBL RS GET ADDRESS OF MBT TABLE 
1445 005226 012705 000011 MOV #11,R5 SET SOB COUNT 
1446 005232 060324 25$: ADD R3, (R4)+ ZADJUST MBT TABLE 
1447 005234 077502 SOB R5, ; CONT INUE 
1448 005236 060337 002334 ADD R3,a¢MBTTBL+26 ADJUST DRIVE TYPE ADDRESS 
1449 005242 112777 000007 175050 MOVB #7 ,@MBTTBL+12 ;SET UNIT NUMBER 
1450 005250 122777 900040 175056 CMPB #40, aMBTTBL+26 1S THIS REALLY A MBT? 
1451 005256 001402 BEQ 30$ BRANCH IF YES 
1452 005260 042702 902000 BIC A#MBTOPT ,R2 CLEAR OPTION a BIT 
a7 005264 012737 064270 000004 30$: MOV HERPRT ,@WERRVEC :RESTORE ERROR TRAP 
ot 3z*** TEST FOR VARIOUS KB11 PROCESSORS *** 
1457 32*THIS ROUTINE POLES THE RESULTS OF ATTEMPTS TO SET TO ONE 
1458 3:*CERTAIN CRITICAL BITS THAT ARE — TO BE OPERATIVE = A KB11(M, 
1459 ;;*OR KB11EM PROCESSOR. IF TWO OUT OF FOUR OF THE TESTS ARE 
1460 ye st Ua THEN THE KB11CM OR 1 1EM FLAG IS SET,IF LESS THAN TWO OF THE 
1461 *TESTS ARE POSITIVE THEN THE KB11E FLAG OR NO FLAG IS SET. THE DETERMINATION 
1462 ::*OF WHICH PAIR IS VALID IS BASED ON THE RESULTS OF EXECUTING AN MFPT OPCODE 
1463 3z*(OPCODE 7). IF THIS INSTRUCTION TRAPS THIS IS AN KB11CM OR 
1464 33*A PLAIN 1170 (KB11-B OR KB11-C). IF THE INSTRUCTION DOES NOT TRAP THEN 
re Ft 3:*THIS IS A KB11-E OR KB11~-EM. 
1467 005272 104420 SAVREG ;SAVE_GPRS R5-RO 
1468 005274 105037 001504 CLRB @4KB11(M :RESET THE MP FLAG 
1469 005300 005037 001502 CLR @4KB11E CLEAR KB11E AND KB11EM FLAGS 
1470 005304 012737 005552 000010 MOV #MFPTTR, @ARESVEC SET UP TRAP ADDRESS FOR, MFPT AT RESERV VECTOR 
1471 005312 000007 MF PT ;EXECUTE MFPT. WILL TRAP ON 1170 (KB11B/C) OR 
1472 [KB11CM (11/74 ) 
1473 005314 012737 000001 001502 MOV #1 ,QAKBIIE ;HERE IF KB11E OR KBI1EM. SET FLAG 
1474 005322 005037 177750 TI: CLR a4MAINT ;CLEAR THE MAINTENANCE REGISTER 
1475 005326 005005 CLR R5 SRESET THE TEST COUNTER 
1476 005330 012700 177746 MOV #CONTRL ,RO ;GET THE ADDRESS OF. 
1477 005334 012701 177750 MOV AMAINT,R1 :CCR,MAINT,AND MAPHOO. 








DEQKC=D PDP 11/70-74MP Fo oe: —— 


CEQKCD.P11 


005516 


04-0CT-79 
012702 


170202 
040000 
04000C 
040000 
000001 
000001 
004000 
004000 
004000 
000001 
100000 
100000 
100000 


100000 
100000 


100000 
000002 


177746 
177746 


164650 
164642 


164632 


MACY11 30A(1052) 

MICRO=BREAK REGISTER TEST 
#MAPHOO ,R2 
#B1T14, (RO) 
sat ene 
#B1T14, (RO) 
R5 


#B81T0,(R1) 
+ hte 


#B1T11,(RO) 
#B1T11, (RO) 


13 

#B1TI1, , (RO) 
#BITO, (R1) 
#B1T15,KIPDRO 
#BlTl5, *KIPDRO 
#81115 .KIPDRO 


R 
#B1T15,(R2) 
#B1T15,(R2) 


T.END 
#B1T15,(R2) 
R5 

#2,R5 

3$ 

RO 

@4CONTRL 
itis Fone 


RO 


1S THE RESULT OF 
“BR IF NO.THIS IS A KB11 


D 
04-OCT-79 09:00 PAGE 33 


ZAND PLACE _IN RO=R2 
TRY TO SET IVSS BIT 


:DID IT SET? 


;TRY 10 SET DMMA IN CCR 


MAKE SURE EDMA IS CLEAR 
;TRY TO SET BYP ON A PDR 


;TRY TO SET BYP ON UNIBUS MAP 


>=2 
OR KB11-B8/C (11/70) 


THE sy 


315 IS A KB11-E OR KB11-EM? 


SEQ 0055 
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CEQKCD.P11 04-OCT-79 08:55 MICRO=BREAK REGISTER TEST SEQ 0056 


1513 005522 007404 BEQ 1$ BR IF NEITHER. MUST BE KB11(M 
1514 005524 012737 000600 001502 MOV MBIT, aAkKBITE ;SET UPPER BYTE (KB11-EM) 
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000405 
105237 001504 
005737 001502 


F 
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MICRO=BREAK REGISTER TEST 


BR 2$ 
1$: INCB @7kKB11(M 
3$: TST @FkK811E 

BEQ RESTORE 
2$: RESReG 

BR ENDKB 


; DONE 

sYES, FLAG THIS AS A MODIFIED PROCESSOR 
31S THIS A KBITE? 

;BR IF NOT. THIS IS AN 1170 

sRESTORE R5=RO 

;DONE DETERMINEING WHICH CPU 


SEQ 0057 





DEQKT=D PDP 11/70-74MP CPU EXERCISER 
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— 
vw 
SBIFARAVYASVRVRARAVGL 


DPD PAPA A ATA ASIA AAA SII 
WWWG 


5 


ee ek kk kd et at nc “wd 243 ot I HS ot a 
UEWRO 


FEFELFX 
o 


1547 


04-0( T= 


012716 
000002 


052702 


104422 


005322 


064216 
001500 
177777 
046570 


005772 


177777 
071075 


000010 
005712 


005712 


177770 


005712 


901505 


177770 


000010 


000042 


MACY11 30A‘1052) 
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MICRO=BREAK REGISTER TEST 


MFPTTR: 


ENDKB: 


+) IF os IS PRESENT. 
THE T 


1$: 


CISOP: 


TRPRIN: 


NOTRAP: 
CISTRP: 


RESTOR: 


SE TOP: 


#11, (SP) 


HREE DON'T TRAP, IT IS 
+ FLAG IS = TO INDICATE THIS. 
31S PRINTED 


#CISOPT,R2 


00 PAGE 36 
SEQ 0058 


sHERE IF MFPT TRAPPED. SEE IF 7170 OR KBI1(M 
oS ee RTI RETURN ADDRESS 


TRY TO EXECUTE 3 CISP INSTRUCTIONS. IF TWO OUT 


ASSUMED THAT THE CISP OPTION IS PRESENT AND 
ALSO A BIT IS SET IN OPT.CP AND A MESSAGE 


an sia a BIT FOR OPT.CP 


#TRPRTN, @ARESVEC stout UP TRAP ADDRESS AT RESERVED VECTOR 


a7C ISP 
pt gs .@CISOP 


AMED74C, a4CI1SOP 
ACISTST,R5 

PC ,a#C1SOP 
#2,aAC1SP 

1$ 

a*C ISP 
#CISOPT,R2 
#BIT15,a#UBREAK ; 
SE TOP 

0 

NOTRAP 

ACISTRP, (SP) 


aAvcisP 
PC 


T HOW MANY CIS OPCODES DON'T TRAP 

:CIS OPCODE TO TEST (LOAD 2 DESCRIPTORS @RO) 

RO MUST BE EVEN AND POINT TO A WORD WHICH IS ALSO EVEN 
: TEST OPCODE FOR A TRAP 

;SET UP OPCODE FOR LOAD 3 DESCRIPTORS @R1 

;LOAD R1 WITH EVEN WORD AND POINT TO EVEN CONTENTS 
TEST OPCODE FOR TRAP 

SET MAINT MODE IN U-BREAK REGISTER 

SOPCODE FOR DIAGNOSTIC ENTRY 
; ADDRESS OF gry U-CODE 

;TEST OPCODE FOR T 
sRESTORE RS-RO 

71S RESULT >=2? 
‘BR IF CISP IS PRESENT 

;CLEAR CISP PRESENT FLAG 
‘AND ALSO IN OPT.CP 

;CLEAR MAINT BIT IN U-BREAK REGISTER 

;GO TO RESTORE VECTOR AND SET OPT.CP 


:CISP OPCODE WILL GO Se FOR EXECUTION 
WILL COME HERE IF NO T 

:SET UP RTI RETURN ADDRESS 

RETURN TO LOCATION FROM TRAP 

S INCREMENT CISP INDICATOR 

> RETURN 


;RESTORE R5-RO 


MRESERR,@ARESVEC;AND ALSO RESERVED INST TRAP 
2,a40PT.CP ;LOAD INDICATOR 


4-1 

64$ 
#SENDAD , 0442 
64$ 

,65$ 

64$ 
<CRLF>''CEQKC=D.. 
4-1 


100$ 
-MSG34 


:cFIRST TIME? 
;zBRANCH IF NO 
7 ZACT=-11? 
oy oa IF YES 
sTYPE ASCIZ STRING 
<GET OVER THE ASCIZ 
* PDP 11/70-74MP CPU EXERCISER’ ’<CRLF > 


FIRST TIME? 
;BR IF NO 
:<15><12>CPU UNDER TEST FOUND TO BE A 
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CEQKCD.P11 04-OCT-79 08:55 MICRO=BREAK REGISTER TEST SEQ 0059 


1632 006342 042702 177537 Blc #177537,R2 [GET BITS 5 & 7 ONLY 


1577 006056 005737 001502 TST @AKBIIE 31S THIS A KB11-E OR KB11-EM? 

1578 006062 001011 BNE 101$ :BR IF EITHER ONE 

1579 006064 105737 001504 TSTB @7KB11(M 1S IT A_11/74 (KB11CM) 
1580 006070 001003 BNE 1$ ;BR_IF IT IS 

1581 006072 104400 071135 TYPE eMSG35 7KB11-B/C<15><12> 

1582 006076 000423 BR 100$ :SKIP OTHER MESSAG 

1583 006100 104400 071043 1$: TYPE -MSG32 311/74 (KB110M)<15><12> 
1584 006104 000420 BR 100$ ;SKIP_CISP MESSAGE 

1585 006106 105737 001502 101$: TSTB @AKBI1I1E 21S IT A KB11-E? 

1586 006112 001403 BEQ 102$ ;BR_IF NOT. MUST BE KB11-EM 

1587 006114 104400 071150 TYPE -MSG36 3KB11-E<15><12> 

1588 906120 000402 BR 104$ ;SKIP KB11-EM MESSAGE 

1589 006122 104400 071031 102$: TYPE -MSG31 3KB11-EM<15><12> 

1590 006126 105767 173353 1046$: TSTB CISP 31S CISP PRESENT? 

1591 006132 001003 BNE 103$ ;BR IF CISP PRESENT 

1592 006134 10440) 071161 TYPE -MSG37 :CISP OPTION “18 * salaries 
1593 006140 000402 BR 100$ ;SKIP OTHER MESS 

1594 006142 104400 071211 103$: TYPE -MSG38 ;CISP OPTION FOUND<15><12> 

1598 006146 100$: 

1596 006146 104400 006154 TYPE ioc° : TYPE ASCIZ STRING 

1597 006152 000415 BR 7GET OVER THE ASCIZ 

1598 33678: .ASCIZ o955<12>/PROCESSOR ID REGISTER =/ 

1599 006206 66$: 

1606 006206 013746 177754 MOV @4177764,-(SP) ;;SAVE 34177764 FOR TYPEOUT 

1601 006212 104402 TYPOC 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
1602 006214 104400 006222 TYPE 69% 3sTYPE ASCIZ STRING 

1603 006220 000406 BR 68$ ::GET OVER THE ASC1IZ 

1604 ;;69$: .ASCIZ / (UCTAL) / 

1605 006236 68s: 

1606 006236 013746 177764 MOV 04177764 ,-(SP) aa 4177764 FOR TYPEOUT 

1607 006242 104410 TYPDS :GO_TYPE--DECIMAL ASCII WITH SIGN 
1608 006244 104400 006252 TYPE 71$ TYPE ASCIZ STRING 

1609 006250 000406 BR 70$ SIGET OVER THE ASCIZ 

1610 371$: .ASCIZ / (DECIMAL) / 

1611 006266 0$: 

1612 006266 104400 001337 TYPE ,SCRLF 

1613 DOI IO IOIIIIOIOIIIOIIOIDIOIIIOIOIOIDIIIOIOIUIOIUIOIOIOIOIDIOIUIOIOIIOIOIOIOIOIOIIOIOIOIOIOIOIO TOIT Re tlt ton j 
1614 ~ SBITL Ad be SIZER 

1615 : HIS ROUTINE DETERMINES WHAT DRIVES an; yy * 

1616 : THE FOLLOWING DEVICES: RKOS, RPO3, RSO4. THE 
1617 : INFORMATION IS STORED IN THE TABLE RSvssize” IN THE FOLLOWING FORMAT: 
1618 : A. EACH DEVICE IS ASSIGNED A WORD 

1619 : B. THE LOW BYTE OF THIS WORD INDICATES WHICH DRIVES ARE AVAILABLE 
1620 ; C. THE HIGH BYTE INDICATES WHICH DRIVES HAVE BEEN USED 
1621 : BY THE RELOCATION ROUTINE. 

1622 DUO ISIOIOIIOIIOIUIIIDIDIIUIOIUIOIIIOIOIIUISIIUIOIOIUIIOIDIIUIOISOIOIOIOIIUIO IDIOT ok titot 
1623 006272 012737 006404 000004 SIZE: MOV #21$,Q#ERRVEC ; SETUP TIMEOUT ya 

1624 006300 005037 001302 CLR a4$TMPO SENSURE $TMPO C 

1625 006304 005000 CLR RO SUSED TO SET THE EONIT AVAIL BITS 
1626 006306 012701 000010 MOV #10,R1 : $08 _ 

1627 006312 013777 001302 173654 9$: MOV @4$TMPO, ARKDA SET T NUMBER 

1628 006320 012777 000015 173640 MOV #15, @RKCS : SEND “DRIVE RESET 

1629 006326 032777 000200 173630 BIT #B1T7,@ARKER NON EXISTANT DISK? 

1630 006334 001011 BNE 7$ “BRANCH IF YES 

1631 006336 017702 173620 MOV @RKDS ,R2 GET DRIVE STATUS 
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04-0CT-79 


022702 
001002 
052700 
006000 


012737 
005737 


012737 


005777 
000441 


012737 
012737 
005000 


145 
104400 


007012 
176710 


006432 
173552 


006534 
000001 


000010 


001302 
173456 


000400 


173430 
037777 
140000 


000400 
001642 


007012 
001302 


000010 
001302 
000021 


010000 


173414 
001000 


006620 


173576 
001302 


000004 


000004 


000004 
001302 


173462 


001302 
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SYSTEM SIZER SEQ 0060 
CMP #200,R2 :1S DRIVE READY? 
BNE “BRANCH IF NO 
BIS #B1T&,RO ‘SET UNIT AVAILABLE 
7$: ROR RO 
MOV #1, ARKCS SCLEAR THE ERRORS 
ADD #20000, a#$TMPU [SELECT NEXT UNIT 
SOB R1, : CONT INUE 
MOVB  RO,a#SYSSIZE+2 SSTORE IN TABLE 


ESERIES IOIEUIISIIIUIIIIISIIUIUO EO IIOUIOD ER Pint tiki nents 
THIS CODE DETERMINES IF THERE IS AN RPO3 OR AN RPO4 OR BOTH. 
:1F BOTH ARE ON THE SYSTEM, THE OPERATOR MUST CHANGE THE RPO4 
ADDRESSES, IN THE TABLE IN ‘‘COMMON TAGS'' AND ‘NOP"' THE BRANCH 


218: MOV #11$, a4ERRVEC ;SET THE ERROR VECTOR 
TST 4176710 71S THERE AN RP ON THE SYSTEM? 


STAY HERE IF YES 
MOV waa 
TST P4CS1 31S THERE AN RPO4 ON SYSTEM? 
100$: BR 10S ;BRANCH IF YES 


za OTT TTT TT TTT TTOTTTTTTTTTITITTTTTTTT TTT TTT TTT TTT TTL LLL 


'MARADARAALAARASASLAAASALSSLASSLASLSASALRRRARSAS SAAR AE ARAL ARRAS ARDS S DO | 


18: MOV 10$, @#ERRVEC ;SETUP TIMEOUT VEC FOR RPO3 TEST 
MOV #1, awST MPO SETUP TEMPO 
CLR RO [USED TO SET UNIT AVAILABLE BITS 
MOV #10,R1 :S0B COUNT 

3$: MOV @#$TMPO,ARP3CS SET FUNCTION IDLE WITH UNIT NO 
TST @RP3CS WAS Lae AN ERROR? 
BPL 6$ BRANCH IF NO 

4$: ROR RO ;UNIT NOT AVAILABLE 
ADD #400 ,a#$TMPO :SELECT NEXT UNIT 
= a1 .98 ; CONT INUE 

6$: MOV @RP3DS ,R2 :GET STATUS REGISTER 
BIC #37777 ,R2 SGET BITS 14, 15 ONLY 
CMP #140000,R2 :IS DRIVE READY? 


4$ HI 
#B1T8,20 “SET DRIVE AVAILABLE BIT 
BR 4$ ; CONT INUE 
5$: RO, @#SYSSIZE 7STORE IN TABLE 


WEAOSAAALALASZAASLASLALESALASSASRE SERA RARE S ALARA ARREARS AAA A SSD DS 


10$: #11$,a#ERRVEC SETUP ERROR VEC FOR RPO4 TEST 
a4$TMPO 
UNIT AVAILABLE WORD 
COUNT 


#10,R ;S0B 
14$: ars ine0, @RP4CS2 >SET UNIT NUMBER 
MOV #21, @RP4CS1 : TRY READ~IN-PRESET 
*ITie, SRPACS2 [NON EXISTANT DRIVE? 
12$ ;BRANCH IF YES 
@RP4DS ,R2 :GET DRIVE STATUS 
> had 31S DRIVE IN PROGRAMMABLE MODE ? 


8 : 
,65$ sz TYPE ASCIZ STRING 





J 3 
DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 39 


CEQKCD.P11 04-OCT-79 08:55 SYSTEM SIZER SEQ 0061 
1689 006616 000410 BR 64$ ::GET OVER THE ASCIZ 

1696 +:65$: .ASCIZ <15><12>/RP04 DRIVE #/ 

1691 006640 é4$: 

1692 006640 013746 001302 MOV @WSTMPO,-(SP) —; ; SAVE @ASTMPO FOR TYPEOUT 

1693 006644 104402 TYPOC ‘GO TYPE=-OCTAL ASCII(ALL DIGITS) 
1694 006646 104400 006654 TYPE 67$ 33 TYPE ASCIZ STRING 

1695 006652 000433 BR 66$ ‘GET OVER THE ASCIZ 

169% ::67$: .ASCIZ / FOUND IN PROGRAMMABLE MODE-DRIVE WILL NOT BE USED/<15><12> 
1697 006742 668: 

1698 006742 000407 BR 12$ 

1699 006744 042702 163277 8$: BIC #163277,R2 :GET BITS 12, 11, 8, & 6 ONLY 
1700 006750 022702 010500 CMP #10500,R2 TIS DRIVE neay? 

1701 0606754 001002 BNE 12$ [BRANCH IF NO 

1702 006756 052700 000400 BIS #B1T8,RO ‘SET UNIT AVAILABLE 

1703 006762 006000 12$: ROR R0 

1704 006764 052777 000060 173222 BiS ABITS ARP4CS2 :CLEAR ERROR BITS 

1705 006772 005237 001302 INC a4$TMPO SSELECT NEXT DRIVE 

1706 006776 005301 DEC R1 

1797 007000 001402 BEQ .+6 

1708 007002 000167 177546 JMP 14$ 

1709 007006 110037 001652 MOVB RO, a#SYSSIZE+10 :STORE IN TABLE 

1711 SL AAA REKEREREEERREERERE EEE EH 
1712 007012 012737 007122 000004 11$: MoV #15$, aHERRVEC :SETUP ERROR VEC FOR RSO4 TEST 
1713 007020 005037 001302 CLR ays TMPO 

1714 007024 005000 CLR RO 

1715 007026 012701 000010 MOV #10,R :SOB COUNT 

1716 007032 113777 001302 173214 18%: MOVB ars ine0, @RSCS2 ‘SET UNIT NUMBER 

1717, 007040 012777 000001 173174 MOV ,aRSC ‘TRY NOP OPERATION 

1718 007046 032777 010000 173200 BIT mire. Sases2 “NON EXISTANT DRIVE? 

1719 007054 001011 BNE 16s, “BRANCH IF YES 

1720 007056 017702 173176 MOV [GET DRIVE STATUS 

1721 007062 042702 163577 BIC rete RD :GET BITS 12, 11, & 7 ONLY 
1722 007 022702 010200 CMP #10200,R2 TIS DRIVE READ \? 

1723 007072 001002 BNE 16$ ‘BRANCH IF NO 

1724 007074 052700 000400 BIS #5178, RO [SET DRIVE AVAILABLE BIT 
1725 007100 006000 16$: ROR 

1726 007102 052777 000040 173144 BIS WITS. aRSCS2 ZCLEAR ANY ERROR BITS 
1727 007110 005 001302 INC ars MPO ‘SELECT NEXT UNIT 

1728 007114 077132 SOB 18$ * CONT INUE 

1729 007116 110037 001654 MOVR RO aesySSIZE+12 :STORE IN TABLE 

1731 “NEXT, DELETE XXDP UNIT 0 FROM TABLE 

1732 007122 122737 000002 000041 15$: CMPB #2, G1 

1733 007130 001004 BNE 19$ {BRANCH IF 

1734 007132 042737 000001 001644 BIC #BITO, @#SYSSIZE+2 [MAKE UNIT yERO NOT AVAILABLE 
1735 007140 000420 BR 20$ 

1736 007142 113700 000041 19$:  MOVB af41,RO :GET LOCATION 4 

1737 007146 042700 177770 BIC #177770,R0 [GET LEAST SIG 3 BITS 
1738 007152 000241 CLC ‘ENSURE C CLEAR 

1739 007154 006100 ROL RO S ADJUST 

1740 007156 122700 000002 CMPB ss #2, RO : 

1741 007162 002404 BLT 40$ ‘BRANCH IF NO 

1742 007164 042737 000001 001642 BIC #B1T0,a#SYSSIZE 

1743 007172 0004 BR 20$ 

1744 007174 042760 200001 001646 40$: BIC #B1T0,SYSSIZE+4(RO) 
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CEQKCD.P11 04-OCT-79 08:55 SYSTEM SIZER SEQ 0062 
1745 007202 005227 177777 208: INC #-1 
1746 007206 001057 BNE LOOP1 ; BRANCH IF NOT FIRST TIME 
1747 007210 104400 065475 TYPE -MSG25 
1748 007214 013746 001500 MOV @40PT.CP,=(SP) 
1749 007220 104402 F TYPOC ’ 
1750 007222 104400 001337 TYPE -$CRLF 
1751 007226 005737 001532 TST avav zACT11? 
1752 007232 001045 BNE LOOP1 ;BRANCH IF YES 
1753 007234 105737 003571 50$: TSTB @AXXDPC ;XXDP CHAIN MODE? 
1754 007240 001042 BNE LOOP1 ;;BRANCH IF YES 
1755 007242 105737 001200 TSTB @4SPASS ZFIRST PASS? 
1756 007246 001037 BNE LOOP1 ; BRANCH IF NO 
1757 007250 032737 000200 177570 BIT ASW7 ,AASWR ; INHIBIT SIZE TYPEOUT? 
1758 007256 061031 BNE SW8MSG ; ;BRANCH IF YES 
1759 007260 004767 047462 JSR PC,TYPSI7Z ;G0 "aa SYSTEM SIZE 
1760 007264 104400 (0907272 TYPE ,69$ ;TYPE ASCIZ STRING 
1761 007270 000417 BR 68$ «GET OVER THE ASCIZ 
1762 ;69$: .ASCIZ /TYPE A CHARACTER’ TO CONT INUE/<CRLF > 
1763 007330 bas: 
1764 007330 005037 177776 CLR aAPSW 
1765 007334 000001 WAIT 
1766 007336 000137 006272 JMP @4SIZE :GO CHECK SYSTEM AGAIN 
1767 007342 104400 070517 — TYPE -MSG30 TYPE SWITCH 8 REVERSAL MESSAGE 
1768 007346 000167 000426 LOOP1: JMP LOOP 
1769 010000 -=10000 
1770 PROGRAM RESTARTS HERE AFTER RELOCATION ABOVE 28K IS COMPLETE. 
1771 S INITIALIZE TRAP VECTORS 
1772 010000 012706 000700 LOOP: MOV #SUPSTK, SP ;SET THE STACK...WILL BE DIFFERENT 
1773 > THAN KERN STACK WHEN IN OUTER MODE 
1774 010004 012700 000004 MOV #ERRVEC RO 
1775 010010 013701 177776 MOV aAPSW,R1 :GET CURRENT PSW 
1776 010014 012720 064270 MOV MERPRT , (RO) + ;SET ERROR VEC 
1777 010020 052701 000340 BIS #PR7,R1 :SET PRIORITY 7 IN CURRENT PSW 
1778 010024 042701 000020 BIC #BIT4,R1 CLEAR T BIT 
1779 010030 010120 MOV R1,(RO)+ 
1780 010032 012720 064216 MOV MRESERR, (RO) + ;SET RESERVED INST TRAP VECTOR 
1781 010036 010120 MOV R1,(RO)+ 
1782 010040 012720 001520 MOV AMSRTRN, (RO) + :SET T BIT VEC 
1783 010044 042701 000340 BIC #PR7,R1 
1784 010050 005020 L (RO) + 2 SET TBIT VEC+2 
1785 010052 005720 TST (RO)+ BUMP RO TO SCOPE VEC+2 
1786 010054 005020 CLR (RO) + Ser SCOPE VEC+2 
1787 010056 062700 000006 ADD #6 ,RO ;SET RO TO ERROR TRAP VEC 
1788 010062 012720 000340 MOV #PR7, (RO) + [SET ERROR VEC 
1789 010066 00572 TST (RO)+ 
1790 010070 012720 000340 MOV #PR7, (RO) + SET TRAP VEC+2 
1791 010074 012737 063464 000114 MOV #.PARSRV , @A#CACHVE ( ;SET PARITY ERROR VECTOR 
1792 010102 052701 000340 BIS #PR7.R1 
1793 06 010137 000116 MOV R1 r@iCACHVEC 2 
1794 010112 012737 064122 000250 MOV #KTABRT , AAMMVE SET KT11 ABORT VECTOR 
1795 010120 010137 000252 MOV R1 ,@AMMVEC+2 
1796 010124 042737 000340 177776 BIC #PR7 ,@APSW 
1797 DIOS IDIOIDIOIDIOIDIOIOIOIIOIOIOIDIOIDIOIOIOIDIDIDIDIOIOIUOIDIDIDIDIDIUIDIOIOIDIOIDIOIOI fot 
1798 S*TEST 1 MEMORY VERIFICATION TEST 
1799 DDO IOI OIOIIOIIOIUIOIIIDIOIIOOIOIIOIOIUIOIIOIDIIOIOIIIDIIDIDIDIDIDIDIO IO Oo nint 
1800 


010132 012767 000001 171166 MOV #1, $TIMES 3:D0 1 ITERATION 
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1801 
1802 
1803 


SEeaae 


00 09 00 00 C0 Cd 00 C0 CD CO 
ood a ced aad aoe a ond od ce end 
OUDNAUSWN-O 


— os SS Ss SS SS SS Ss 2 3) SS SS SY SS 


Qo 
NM 
— 


010226 
010232 


04-0(T- 


112737 
013737 


000001 
001202 


001540 
010170 
001534 
001212 
000030 
001212 
001530 
000720 
000714 
177777 
000000 
000000 
177777 
000000 
000000 
177777 
000000 
177777 
000000 
000000 
177777 
000000 
000000 
177777 
000000 
000000 
177777 
000000 
000090 
177777 
000000 
177777 
000000 
000000 
177777 
000000 
000000 
177777 
000000 


000000 
177777 
000000 
000000 


001202 
177570 


177777 
000060 


177777 
000000 


177777 
000000 


177777 
000000 


177777 
000000 
177777 
000000 
177777 


000000 


177777 
000000 


177777 
000000 


177777 
000000 


177777 
000000 


177777 
000000 


ail 30A(1052) 


TST1: 


RELO: 


;MEMORY 


5 
04-0CT=79" 09:00 PAGE 41 


MEMORY VERIFICATION TEST 


SCOPE 
MOVB 
MOV 


LOAD TEST NUMBER 


a4$TSTNM 
a#$TSTNM, aD ISPLAY DISPLAY TEST NUMBER 


-SBTTL START OF SECTION 0 


; 0090000000000 fa ptt TO BE ata 000000000 


C4 


3GET PC 
-(RO) ‘RO CONTAINS THE ADDRESS OF RELO 

RO, a#FRSTAD > SAVE 

PC.RO :GET CURRENT PC 

#. RO + SUBTRACT RELOCATION FACTOR 

RO. a@#FACTOR SSAVE RELOCATION FACTOP 

PC a#SLPERR :SET LOOP ADDRESS 

#30, a4SLPERR § :ADJUST 

a¥$PERR, a#SLPADR 

@ANE XE C :BR IF TEST CODE TO BE EXECUTED 


. +6 


JMP RELEO 
AND DISK (IF SELECTED? VERIFICATION TEST. 
JMP 1$ 


. WORD 


. WORD 


. WORD 


. WORD 


. WORD 


. WORD 


. WORD 


- WORD 


. WORD 


. WORD 


. WORD 


. WORD 


-1,°1,°1,°1,0,0,0.0 


-1,-1,°1,°1,0.0,0.0 


-1,°1,-1,°1.0.0,0.0 


-1,°1,°1,°1.0.0.0.0 


-1,-1,-1,-1,0,0,0.0 


-1,°1,-1,°1,0.0,0.0 


-1,-1,-1,71,0,0,0,0 


#1,°1,-1,-1,0.0,0.0 


-1,7-1,-1,71,0,0,0,0 


-1,-1,°1,°1,0.0.0.0 


-1,-1,-1,°1,0,0.0,0 


-1,-1,-1,71,9.0,0,0 


SEQ 0063 
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2) 
CEQKCD.P11 04-OCT-79 08:5 ART OF SECTION 0 


1857 177777 «(177777 =177777 ° -1,-1,-1,°7,0,0,0.0 
1858 0105 177777 000000 000000 


1859 000000 
177777) «177777 )=—177777 . -1,-1,-1,°1,0,0,0.0 
177777 000000 000000 


000000 000000 
177777 «(177777 «=—177777 ‘ -1,-1,-1,-1,0,0,0,0 
177777 000000 


000000 000000 
177777 177777 . -1,-1,-1,-+.0,0,0,0 
177777 000000 000000 


000000 
177777 177777 . -1,°1,-1,°1,0,0.0.0 
177777 000000 


000000 000000 

177777 177777 . -1,-1,°1,°1,0.0,0.0 
177777 000000 000000 

000000 


177777 177777 : -1,-1,°1,°1,0,0.0.0 
177777 000000 000000 


000000 000000 
177777 177777 , -1,-1,-1,-1,0.0.0.0 
177777 000000 000000 


000000 000000 
177777 177777 : -1,-1,°1,-1,0,0.0.0 
177777 000000 000000 


000000 000000 
177777 177777 ‘ =1,°1,°1,°1.0.0.,0.0 
177777 000000 


000000 000000 

177777 177777 ‘ -1,-1,°1,-1,0.0.0.0 
177777 000000 000000 

000000 


177777 177777 . «1,°1,-1,°1,0.0.0.0 
177777 000000 


000000 000000 
177777 177777 . -1,-1,7-1,71,0,0,0.0 
177777 000000 000000 


See reReS 


& 


at and a8 ad a a eh eo od nd ec 
NN 
-ovo 


000 


000000 

177777 177777 . -1,-1,°1,-°1,0,0.0.0 
177777 000000 

000000 


000000 
177777 177777 : -1,-1,7-1,71,9,0,0.0 
177777 000000 000000 


000000 
177777 177777 ‘ -1,-1,-1,°1,0,0,0.0 
177777 000000 


000000 000000 
177777 177777 . -1,°1,°1,°1,0,0 


Wr 


177777 000000 000000 - 

RELEO: SCOPE: 
MOV 
ADD 


MOV 
RELOO: .WORD 


BE8R 
lelelelelejlelelejlelejojlelajo) Ss 
—_ 


ee ee ek ee ce ed ce ee ced ed ed eed ed 
se ee ee ee ed ed ed ed sd ed 
tt ot ot ot 1 O 


000004 
010702 
062702 000012 
012707 043764 
000000 


EVKFNUVREGRAGRA 


nd et ed ed ad aed ed 
oho} °) 


ad od od 
Nme-o 


3GO RELOCATE PROGRAM CODE 
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DE 
CEQKCD.P11 04=0CT=79 08:55 START OF SECTION 0 SEQ 0065 
1915 :0000000000000 LAST ADDRESS OF CODE TO BE RELOCATED 00000000000 
1915 SLA RARER EERE REE ERE ERE ERE ERE REE REE 
1916 T*TEST 2 CHECK BRANCH INSTRUCTIONS 

1917 J FERRARA EAEREEEEEEREEKEEEERERKEEREERERERRRERERERERERE EERE 
1918 011170 012767 000001 170130 MOV #1,$TIMES ::D0 1 ITERATION 

1919 011176 TST2: SCOPE 

1920 011200 112737 000002 001202 MOVB #2, a4$TST LOAD TEST NUMBER 

135) 011206 013737 001202 177570 MOV av$TSTNM, SODISPLAY DISPLAY TEST NUMBER 
1923 : .SBTTL START OF SECTION 1 

1924 31111111111111 FIRST ADDRESS TO BE RELOCATED 111111111 

1925 011214 010700 REL1: MOV PC,RO Pp 

1926 011216 005740 TST -(RO) *RO CONTAINS THE ADDRESS OF REL1 
1927 011220 010037 001540 MOV RO, a#FRSTAD + SAVE 

1928 011224 010700 MOV PC,RO :GET CURRENT PC 

1929 011226 162700 011226 SUB #.,RO + SUBTRACT RELOCATION FACTOR 

1930 011232 010037 001534 MOV RO, @4FACTOR ;SAVE RELOCATION FACTOR 

1931 011236 010737 001212 MOV PC oe pe SET LOOP ADDRESS 

1932 011242 000030 001212 ADD #30, a#SLPERR zADJU ST 

1933 011250 013737 001212 001210 MOV @4SLPERR , AASLPADR 

1934 011256 105737 001530 TSTB  a@#NEXEC :BR IF TEST CODE TO BE EXECUTED 
1935 011262 001402 BEQ +6 

1936 011264 000167 004146 JMP RELE1 

1938 011270 257 CCC :C€C*S=0000 

1939 011272 103407 BCS cco ;SAME AS BLO 

1940 011274 102406 BVS CCO 

1941 011276 001405 BEQ CCO 

1942 011300 100404 BMI CCO 

1943 011302 002403 BLT CcO 

1944 011304 02 BLE £CO 

1945 011306 101401 BLOS (CO 

1946 011310 101001 “46 

1947 011312 ccO: HLT ZONE OF THE ABOVE BRANCHES FAILED 
1949 > CONTINUE 

1950 011314 000270 SEN :CC'S=1000 

1951 011316 100003 BPL C1 

1952 011320 002002 BGE C1 

1953 011322 003001 BGT CCI 

1954 011324 002401 BLT +4 

Rees 011326 CCl: HLT ZONE OF THE ABOVE BRANCHES FAILED 
1957 ; CONT INUE 

1958 011330 0002 SEV :CC'S=1010 

1959 011332 102003 BVC cc2 

1960 011334 002402 BLT CC2 

1961 011336 003401 BLE CC2 

1962 011340 002001 BGE +4 

7 011342 104000 CC2: HLT - ERROR! ONE OF THE ABOVE BRANCHES FAILED 
1965 CONT INUE 

1966 011344 261 SEC =CC"S=1011 

1967 011346 103002 BCC Cc3 

1968 011350 101001 Es] C3 
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DEQK 
CEQKCD.P11 04-OCT-79 08:55 START OF SECTION 1 SEQ 0066 
1969 011352 003001 BGT +4 

1970 011354 104000 (C3: HLT ZERROR! ONE OF THE ABOVE BRANCHES FAILED 
197 CONT INUE 

1973 011356 000264 SEZ :CC°S=11171 

1974 011360 001003 BNE CC4 

1975 011362 003002 BGT (C4 

1976 011364 101001 BHI CC4 

1977. 011366 003401 BLE +4 

1978 011370 104000 C4: HLT ZERROR! ONE OF THE ABOVE BRANCHES FAILED 
1979 FFARR ARAAAAAEERAAERAERAEAAREAERREREREERRARERRREREREREERRRHEEREE 
1980 TeTEST 3 TEST UNIARY CONDITION CODES 

1981 FERRARA AAARAEAARAAARRARRARARRERRREARREARAEHARERARRRARRRRAAEEHRE 
1982 011372 000004 TST3: SCOPE 

1983 011374 112737 000003 001202 MOVB #3, a4"$TS LOAD TEST NUMBER 

1984 011402 013737 001202 177570 ae mov orb tsT. SADISPLAY 2 DISPLAY TEST NUMBER 

StL 

1986 011410 900277 SCC 

1987 011412 000244 CL2 

1988 011414 005000 CLR RO :RO=0,CC'°S=0100 

1989 011416 103404 BCS CLRO 

1990 011420 102403 BVS CLRO 

1991 011422 001002 BNE CLRO 

1992 011424 100401 BMI CLRO 

1993 011426 003401 BLE +4 

haw 011430 104000 CLRO: HLT sERROR! INCORRECT CC'S AFTER CLR 
1996 011432 000277 SCC 

1997 011434 000244 CL2 

1998 011436 005700 TS! RO 7RO=0,CC'S=0100 

1999 011440 103404 BCS rsTO 

2000 011442 102403 BVS TSTO 

2001 011444 001002 E TSTO 

2002 011446 01 BMI TSTO 

2003 011450 101401 BLOS .+4 

tae 011452 104000 TSTO: HLT sERROR! INCORRECT CC°S AFTER TST 
2006 011454 000257 

2007 011456 000266 +SEZ!SEV 

2008 011460 005100 OM :RO=-1,CC'°S=1001 

2009 011 BCC COMO 

2016 011464 102403 BVS COMO 

2011 011466 001402 BEQ COMO 

2012 011470 1 L COMO 

2013 011472 002401 BLT +4 

2014 011474 000 COMO: HLT sERROR! INCORRECT CC'S AFTER COM 
2016 011476 000261 SEC 

2017 011500 005500 ADC RO :R0=000000,CC'S=0101 

2018 011502 103003 BCC ADCO 

2019 011504 102402 BYS ADCO 

2020 011506 001001 BNE ADCO 

2021 011510 002001 BGE +4 

2022 011512 104000 ADCO: HLT ZERROR! INCORRECT CC°S AFTER ADC 
2024 011514 000261 SEC 
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CEQKCD.P11 04-OCT-79 08:55 13 TEST UNIARY CONDITION CODE SEQ 0067 
2025 011516 ROR RO :RO=100000,¢C *S=1010 
2026 011520 BCS RORO 
2027 011522 102003 BVC RORO 
2028 011524 001402 BEQ RORO 
2029 011526 100001 BPL RORO 
2030 011530 003001 BGT +4 
2031 011532 104000 RORO: HLT ERROR! INCORRECT CC°S AFTER ROR 
2032 011534 000277 SCC 
2033 011536 000242 CLV 
2034 011540 5300 DEC RO 3R0=077777,CC*S=0011 
2035 011542 10 BCC DECO 
2036 011544 102003 BYC DECO 
2037 011546 001402 BEQ DECO 
2038 011550 01 BMI DECO 
2039 011552 003401 BLE +4 
io 011554 104000 DECO: HLT ERROR! INCORRECT CC°S AFTER DEC 
2042 011556 000257 ccc 
2043 011560 005200 INC RO 3RO=100000, CC *S=1010 
2044 011562 103404 BCS INCO 
2045 011564 102003 BYC INCO 
2046 011566 001402 BEQ INCO 
2047 011570 1 1 BPL INCO 
2048 011572 003001 BGT +4 
et 011574 104 INCO: HLT ERROR! INCORRECT CC'S AFTER INC 
2051 011576 000277 SCC 
2052 011600 000242 CLV 
2053 011602 005400 NEG R ;RO=100000,CC*S=1011 
2054 011604 103003 BCC NEGO 
2055 011606 102002 BVC NEGO 
2056 011610 001401 BEQ NEGO 
2057 011612 BGE +4 
$028 011614 104000 NEGO: HLT ERROR! INCORRECT CC'S AFTER NEG 
011616 000261 SEC 
2061 011620 ASL R :R0=000000, CC *S=0111 
2062 011622 10 BCC ASLO 
2063 011624 102003 BVC ASLO 
011626 100 BNE ASLO 
2065 011630 100401 BMI ASLO 
2066 011632 101401 BLOS +4 
2067 011634 104000 ASLO: HLT ERROR! INCORRECT CC'S AFTER ASL 
2069 011636 006100 ROL RO :RO=000001, CC *S=0000 
2070 011640 103402 BCS ROLO 
2071 011642 003401 BLE ROLO 
2072 011644 002001 BGE +4 
Ou 011646 104000 ROLO: HLT ERROR! INCORRECT CC°S AFTER ROL 
2075 011650 006200 ASR RO :RO=000000,CC*S=0111 
2076 011652 103003 Bcc ASR0 
2077 011654 102002 BvC ASRO 
2078 0116 001001 BNE ASRO 
011 602401 BLT +4 


2080 011662 104000 ASRO: HLT ’ ERROR! INCORRECT CC*S AFTER ASR 


DEQKC=D PDP 11/70=74MP CPU 
79 08 


CEQKCD.P11 04-0 T= 
2081 
2082 011664 000277 
2083 011666 005600 
2084 011670 103002 
2085 011672 102401 
2086 011674 003401 
2087 011676 104 
2088 
2089 011700 005400 
2090 011702 300 
2091 011704 103403 
2092 011706 102402 
2093 011710 1001 
2094 011712 002001 
2095 011714 104 
2096 
2097 
2098 
2099 011716 
2100 011720 112737 
2101 011726 013737 
2102 011734 01273 
2103 011742 005 
2104 011744 000277 
2105 011746 006100 
2106 011750 010002 
2107 011752 302 
2108 011754 010203 
2109 011756 303 
2110 011760 010304 
2111 011762 304 
2112 011764 010405 
2113 011766 305 
2114 011770 010546 
2115 011772 050416 
2116 011774 050316 
2117 011776 050216 
2118 012000 050016 
2119 012002 022726 
2120 012006 00140 
2121 012010 104 
2122 
2123 
2124 
2125 012012 00025 
2126 012014 112700 
2127 012020 006100 
2128 012022 103776 
2129 012024 5200 
2130 012026 001401 
2131 2030 104 
2132 
2133 012032 012700 
2134 2036 005002 
2735 012040 000261 
2136 012042 006002 


000004 
001202 
000005 


000037 


000377 


000020 


EXERCISER 
755 


001202 
177570 
001326 


MACY11 30A(1052) 
T3 TEST UNI 


SBCO: 


SWABO : 


D 6 
04-OCT-79 09:00 PAGE 46 
ARY CONDITION CODES 


RO ;RO=-1,C0C°S=1001 


ERROR! INCORRECT CC'S AFTER SBC 


RO :R0=000001 ,CC'S=00001 
RO ;RO=000400 ,CC*S=0100 


;ERRORK' INCORRECT CC°S AFTER SWAB 


WEA AAAARASAALASZASLARAALALASLAASASALASLARASASERS SEAS ARS S RRS ARERR ADS SD | 


T*TEST 4 


CHECK REGISTER SELECTION 


We RAARAAARAAAAZASALALASASLAALALSSLESARESESA SERA RAR RASA AA RRA RASS DS! 


TST4: 


CHECK T 


1$: 


2s: 


HAT 
C 


ALL 


#4, QASTSTNM ;LOAD TEST NUMBER 
A4STSTNM, aADISPLAY ;zDISPLAY TEST NUMBER 
eres 7SET ITERATION COUNT TO 5 
RO ;RO=1 

RO,R2 

be sR2=2 

R2,R3 

R3 TR3=4 

R3,R4 

4 :R4=10 

R4,R5 

RS 7R5=20 

R5,-(SP) SET BITS SET IN REGISTERS 
R4, (SP) : INTO STACK ADDRESS 

R3, (SP) 

R2, (SP) 

RO, (SP) 

#37, (SP)+ 

+4 ; WERE 


;WERE SET 
:MISSING BIT(S) REPRESENT 
; INCORRECT REGISTER SELECTION 


BITS CAN BE SET & CLEARED IN ALL REGISTERS 
#377,R0 ;SET ALL BITS (MOVB EXTENDS SIGN) 
RO ROTATE A 0 THROUGH ALL BIT 
1$ POSITIONS 
- 3FINAL RESULT IS -1 
.+ 
ERROR! 
eo SET SHIFT COUNT 


R2 ROTATE 1 THROUGH ALL BIT POSITS 


SEQ 0068 


E 6 
C=D PDP 11/70-74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 47 


DE Qk 
CEQKCD.P11 04-OCT-79 08:55 14 CHECK REGISTER SELECTION SEQ 0069 
2137 9120464 005300 DEC RO ;DECREMENT SHIFT COUNT 
2138 012046 001374 BNE 2s 
2139 012050 005102 COM R2 :R2 SHOULD CONTAIN ~1 
2140 012052 001401 BEQ ~*4 
sap 012054 104000 HLT ERROR! CHECK R2 SHOULD = 0 
2143 012056 012703 100000 MOV #100000 ,R3 
2144 012062 006203 3$: ASR R3 EXTEND 1 BIT THROUGH ALL POSITIONS 
2145 012064 103376 BCC 3$ 
2146 012066 005203 INC R3 
2147 012070 001401 BEQ -*4 
si6 012072 104000 HLT Z ERROR! 
2150 012974 112704 177401 MOVB #177401 RS pR4=1 
2151 012100 060404 4$: ADD R4,RS ;HAS THE AFFECT OF SHIFTING A BIT 
2152 012102 103376 BCC 4$ ; THROUGH ALL POSITIONS 
2153 012104 005704 TST R4 ;RESULT SHOULD BE ©6 
2154 012106 001401 BEQ +4 
44 012110 104000 HLT 
2157 012112 012705 000001 MOV #1,R5 
2158 012116 006305 5$: ASL R5 
2159 012120 102376 BVC 5$ 
2160 012122 05 ASL R5 
2161 012124 103002 BCC 6$ 
2162 012126 005705 TST R5 
2163 012130 001401 BEQ +4 
abe: 012132 104000 6$: HLT 
2166 CHECK REGISTER VOLITILITY 
2167 012134 005002 CLR R2 
2168 012136 005102 COM R2 sR2=-1 
2169 012140 010203 Vv R2,R3 
2170 012142 CCC 
2171 012144 006002 ROR Re 3R2=LOOP COUNT 
2172 012146 006202 ASR R2 
2173 012150 010304 7$: MOV R3,R4 
2174 012152 005302 DEC Re ;DECREMENT LOOP COUNT 
2175 012154 001375 BNE 7$ 
2176 012156 005203 INC R3 iCHECK R3 
2177 012160 001002 BNE 8$ 
2178 012162 005204 INC R4 i CHECK R4 
2179 012164 001401 BEQ +4 
5im0 012166 104000 8$: HLT 
2182 3; CHECK TRANSFER OF REGISTER DATA BETWEEN THE GS AND GD REGISTERS 
2183 012170 032737 000020 177776 GSTST: BIT #20, a4PSwW CHECK IF ‘T* BIT IS SET 
2184 012176 001050 BNE 7$ :SKIP TEST IF ‘T* BIT SET 
2185 012200 010627 MOV SP, (PC)+ SAVE STACK PTR 
2186 012202 000000 1$: -WORD 0 = CONTAINS SAVED STACK PTR 
2187 012204 010727 MOV PC, (PC)+ LOAD DATA. THE CURRENT PC IS USED AS 
2188 012206 000000 23: -WORD 0 ‘DATA. IF THIS TEST FAILS 2$ CON- 
2189 : TAINS THE DATA BEING USED. 
2190 012210 005267 177772 INC 2$ MAKE ODD TO CHECK BIT 0 
2191 012214 016700 177766 3$: MOV 2$,RO “LOAD GD REGISTER 0 
2192 012220 010001 MOV RO,R1 ; TRANSFER GS REG 0 TO GD REG 1 


F 6 
DEQKC=D PDP A verter CPU EXERCISER rns 30A(1052) 04-OCT-79 09:00 PAGE 48 
CEQKCD.P11 04-0CT=79 08:55 CHECK REGISTER SELECTION SEQ 0070 


012222 010102 we GS REG 1 TO GD REG 2 


R4,R5 
000240 177776 SET PRIORITY LEVEL 7 
RS,SP ; TRANSFER GS REG 5 TO GD STK PTR 
; TRANSFER GS STK PTR TO MEMORY 
; ° CONTAINS GS STACK PTR 
177730 1$,SP = RESTORE STK PTR NEEDED FOR HLT/SCOPE 
000340 177776 ;SET PRIORITY LEVEL 0 
177760 MP 4$,R0 > COMPARE GS/6D_ STACK po by _GS REG 0 
[BRANCH IF THEY WERE NO 
177714 SHIFT TEST DATA UNTIL = 00000 


‘7 GS REG 0 


R5,-(SP) 
012312 104000 ;ERROR! DATA IN GS STK PTR NOT = GS REG 0 
:GS REG 0-GS REG 5 ARE ON THE STACK 
012314 1$,SP RESTORE STACK PTR 
012320 
012320 
DOUG OSI IOISISIOIDIOIUIDIDIOIIIDIDIDIDIDIUIOINIIOIDIDIDIOISIOIDIDIIOIOIUIDIDIDIDIOIDIDIDIDIDIDIIDIDIIDIDIINIOI 
*TEST 5 TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 
ZU UOSIOIUISIOIIIIOIOISIIUIDIDIOIDIOIIDIOIDIDIOIOIOIDIDISIDIDIUIDIDIDIIDIDIDIDIDIIDIDIDIDIDI IDOI IDIDIDIUDR fot 
012320 000004 TSTS: 
000005 001202 VB #5 ,QASTSTNM ;LOAD TEST NUMBER 
001202 177570 @A4S$TSTNM, 4D I SPLAY >: DISPLAY TEST NUMBER 
000005 001326 ns i ‘estates 
.+ 


RESERVE ADDRESS FOR TESTS 
000004 :R2 POINTS TO RESERVED WORD 
PRESET (R2) 


; (R2)=100000,CC=1010 


012372 : : :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
012374 


3 (R2)=077777,CC=0011 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 


012410 
012412 
012414 005512 3 (R2)=100000,CC=1010 





6 
C=D PDP 11/70-74MP CPU EXERCISER MACY11 Pe 04-0cT=79° 09:00 PA 


DE Qk GE 49 
CEQKCD.P11 04-OCT-79 08:55 15 TEST UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 SEQ 0071 

2249 012416 103403 BCS ADC 

2250 012420 102002 BvC ADC 

2251 012422 100001 BPL ADC1 

2252 012424 001001 BNE +4 

$527 072426 104000 ADC1: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 

2255 012430 006112 ROL (R2) 3 (R2)=000000,CC=0111 

2256 012432 103003 BCC ROL 1 

2257 012434 102002 BVC ROL 1 

2258 012436 001001 BNE ROL1 

2259 012440 100001 BPL +4 

$500 012442 104000 ROL1: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 

2262 012444 006112 ROL (R2) 3 (R2)=000001, CC =0000 

2263 012446 101402 BLOS ROL1A sBRANCH IF C OR Z IS SET 

2264 012450 102401 BVS ROL1A 

2265 012452 100001 BPL +4 

sce 012454 104000 ROL1A: HLT 

2268 012456 006212 ASR (R2) 3 (R2)=000000,CC=0111 

2269 012460 103003 BCC ASR1 

2270 012462 102002 BvC ASR1 

2271 012464 001001 BNE ASR1 

2272 012466 100001 BPL -+4 

SS 022470 104000 ASR1: HLT ERROR: INCORRECT CC°S AS SHOWN ABOVE 
2275 012472 006012 ROR (R2) 3 (R2)=7090000,CC=1010 

2276 012474 103403 BCS ROR1A 

2277 012476 10°902 BVC ROR1A 

2278 012500 001401 BEQ ROR1A 

2279 012502 100401 BMI +4 

5334 012504 104000 ROR1A: HLT 

2282 012506 000261 SEC 

2283 012510 005212 INC (R2) ; (R2)=100001, CC=1001 

2284 012512 103003 BCC INC] 

2285 012514 102402 BVS INC1 

2286 012516 001401 BEQ INC1 

2287 012520 100401 BMI +4 

soe 012522 104000 INC1: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
290 012524 005612 SBC (R2) ‘ 3 (R2)=100000, CC=1000 

2291 012526 103403 BCS SBC1 

2292 30 102402 BVS SBC1 

2293 012532 001401 BEQ SBC1 

2294 O12 100401 BMI +4 

2295 012536 104000 SBC1: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2297 012540 000261 SEC 

2298 012542 005612 SBC (R2) 3 (R2)=077777,CC=0010 

2299 012544 103403 BCS SBC1A 
300 012546 102002 BvC SBCIA 

2301 012550 001401 BEQ SBC1A 

2302 012552 1 BPL +4 

Stra 012554 104000 SBC1A: HLT ERROR! INCORRECT CC°S AS SHOEN ABOVE 








DEQKC=D PDP 11/70-746MP CPU EXERCISER 
CEQKCD.P11 8:55 


2305 


Sees 


Monorenononenofferoror 
WAWWANWWANAAS 
=I st So SY a 
WNAWEWR-O 


2319 
20 


012614 
012616 


012650 
012652 
012654 
012656 


000004 
112737 
013737 
900401 


100402 
105214 


04-OCT-79 0. 


000006 001202 


001202 


000004 


177570 


MACY11 thee t 
T5 TEST 


ASL1: 


TEST1: 


NEG1: 


DECIA: 


H 6 
04-OCT-79 09:00 PAGE 50 
UNIARY WORD INSTRUCTIONS USING ADDRESS MODE 1 


3 (R2)=100000,CC=1010 
; (R2)=000000,CC=0111 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 
7 (R2)=177777,CC=1001 
ERROR! INCORRECT CC°S AS SHOWN ABOVE 


3 (R2)=177777,CC=1000 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 
; (R2)=000001 , CC=0000 
ERROR! INCORRECT CC°S AS SHOWN ABOVE 
; (R2)=000000,CC=0101 


ERROR! INCORRECT CC'S AS SHOWN ABOVE 


SL AAR EERE AKER REE RRA KREAEKEEEREEEREAREAERER EEE E EEE 


T*TEST 6 


TST6: 


CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 


fF RARER AREA AERA AERRREERAEAAAERERAERARAERRAEAAAEAAERAERERER REE 


#6, 


a4$TSTNM 
ar$TSTNM, seiiadtae 


;LOAD TEST NUMBER 
ye ROUSRLAY TEST NUMBER 


WORD 
ADDRESS RESERVED FOR TESTS 


3R3 POINTS TO EVEN BYTE OF WORD 
RS POINTS TO ODD BYTE OF WORD 


PRESET DATA 


are CARRY TO EVEN BYTE 
UNTIL EVEN BYTE BECOMES NEGATIVE 
‘INCREMENT ODD BYTE 


SEQ 0072 








I 6 
DEQKC=D PDP 11/70=-74MP CPU EXERCISER glade "hate ce 04-OCT-79 09:00 PAGE 


51 
CEQKCD.P11 04-OCT-79 08:55 HECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 SEQ 0073 
2361 012726 000773 BR 1$ 

2362 012730 102401 28: BVS #4 ; (R3)=077600=(07743£2001,CC=1010 
2363 012732 104000 HLT 

2364 012734 000242 CLV : 

2365 012736 105214 INCB (R4) ; (R3)=100200=10003£2001,¢¢=1070 
2366 012740 103402 BCS INCB1 

2367 012742 102001 BvC —sINCBI 

2368 012744 100401 BMI. #4 

$35 012746 104000 INCB1: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2371 012750 106114 ROLB —(R&) ; (R3)=000200=C00003£200,.C¢=0111 
2372 012752 103002 BCC ROL 

2373 012756 102001 BvC —ROLAT 

2374 012756 001401 BEQ #4 

i led 012760 104000 ROLB1: HLT ;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2377 012762 105614 SBCB (RG) ; (R3)=177600=(1774IC200], CC=1001 
2378 012764 103002 BCC SBCB1 

2379 66 102401 BVS SRCBI1 

2380 012770 01 BMI a #4 

Sap 012772 104000 SBCB1: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2383 012774 106313 ASLB —(R3) ; (R3)=177400,CC=0111 

2384 012776 103002 BCC —ASLBT 

2385 013000 102001 BVC —ASLBT 

2386 013002 001401 BEQ #4 

Sthe 013004 104000 ASLB1: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2389 013006 105413 NE GB (R3) 7 (R3)=177400,CC=0100 

2390 013010 103402 BCS _-NEGB1 

2391 013012 102401 BVS —-NEGBI 

2392 913014 001401 BEQ +4 

Sone 013016 104000 NEGB1: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2395 013020 000277 SCC 

2396 013022 105313 DECB (R3) 7 (R3)=177777,CC=1001 

2397 013024 10300 BCC —DECBI 

2398 013026 102401 BVS ——DECBT 

2399 013030 00100 BNE. #4 

a4 013032 104000 DECB1: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2402 013034 000241 CLC 

2403 013036 106013 RORB (R3) 7 (R3)=177577,CC=0011 

2404 013040 10 BCC —RORB) 

2405 013042 102001 BVC —RORBT 

2406 013044 1 BPL ls. #4 

a4 013046 104000 RORB1: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2409 013050 000241 CLC 

2410 013052 105114 COMB (R4) 7 (R3)=900177,CC=0101 

2411 013054 103 BCC COMB1 

2412 013056 102401 BVS COMBI 

2413 060 001401 BEQ -*4 

ws 013062 104000 COMB1: HLT ERROR! INCORRECT CC*S AS SHOWN ABOVE 


2416 013064 106213 1$: ASRB (R3) SHIFT EVEN BYTE UNTIL V CLEARS 





6 
DEQKC=D PDP 11/70-74MP CPU EXERCISER MACY11 30A(7052) 04=-0CT= -79" 09:00 PAGE 52 
CEQKCD.P11 94-0CT=79 08:55 T6 CHECK UNIARY BYTE INSTRUCTIONS USING ADDRESS. MCDE 1 SEQ 0074 


AND ADD CARRY TO ODD BYTE 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 
; (R3)=000400,CC=0011 
BN . 
ASRBiA: ERROR: INCORRECT CC°S AS SHOWN ABOVE 


; (R3)=000000, CC=0100 
ERROR! INCORRECT CC°S AS SHOWN ABOVE 


— oo es — ss -2 


; (R3)=100000, CC=1010 


~_— 
NSRR VS RVSKRL So 


WWAWA AWWA NWN 


ERROR! INCORRECT CC*S AS SHOWN ABOVE 
; (R3)=077400,CC=0100 
3 (R3)=077777,CC=1001 


BM . 
DECBIA: ERROR! INCORRECT CC°S AS SHOWN ABOVE 


3 (R3)=177577=01774101771,CC=0000 


ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2 (R3)=177577=01774301771,CC=1000 


0132 BM ° 
013210 104000 : ERROR! INCORRECT CC'S AS SHOWN ABOVE 
013212 ; (R3)=000177=C(0000I£1773,CC=0100 


; 2 (R3)=000376 ,CC=1010 
013224 102001 ASLBIA 








K 6 
DEQKC=D PDP 11/70-74MP CPU EXERCISER MACY11 gw beg? 04-OCT-79 09:00 PAGE 53 
CEQKCD.P11 04-OCT-79 08:55 16 HECK UNIARY BYTE INSTRUCTIONS USING ADDRESS MODE 1 SEQ 0075 


013226 100401 BM ° 
013230 104000 ASLBIA: ERROR! INCORRECT CC°S AS SHOWN ABOVE | 


013232 10511 OMB ; (R3)=000001, CC =0001 
0132 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 
7 (R3)=000400, CC=0100 
013250 


013252 105213 
000261 
105613 ; (R3)=000400,CC=0100 
001401 


104000 

022713 #400, (R3) CHECK REMAINING RESULT 
001401 +4 

013272 104000 


SR IORI ROTOR TOR ICRI OIC TORII IIR TOTTORI AIA ISIAIAISASISSSASISIISSSSASSAS SM. 
i*TEST 7 CHECK UNIARY WORD OPS USING ADDRESS MODES 2 & 4 
DUDS III IIIOIDIOIOIOIOIICIOIICIDICIOIIOIOIOIOI IOI IOI TOT TOT TOR TOT TTT ISSA ASI AIS SASS. 
013274 000004 TST7: 
000007 001202 47 ,QASTSTNM ;LOAD TEST NUMBER 
001202 177570 “4 an$TSTNM, -@ADISPLAY 7zDISPLAY TEST NUMBER 


7 Sf ZADDRESS RESERVED FOR TESTS 
000004 #6 RG :R4 AND RS POINT TO 
R4,RS [RESERVED WORD 
013326 (R5) “PRESET DATA=0 
013330 


; (R5)=000000, CC=0100 


ERROR! INCORRECT CC'S AS SHOWN ABOVE 
3 (R5)=177777,CC=1001 


013354 : ERROR! INCORRECT CC'S AS SHOWN ABOVE 
013356 
013360 3 (R4)=077777,CC=0011 

013362 

013364 

013366 BP ° 

013370 : ERROR! INCORRECT CC*S AS SHOWN ABOVE 


013372 00025 
013374 005244 3 (R4)=100000, CC=1010 
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CEQKCD.P11 04-OCT-79 08:55 17 CHECK UNIARY WORD OPS USING ADDRESS MODES 2 & 4 SEQ 0076 
2529 013376 102002 BYC INC4 
2530 013400 001401 BEQ INC4 
2531 013402 100401 BMI +4 
$236 013404 104000 INC4: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2534 013406 000261 SEC 
2535 013410 000324 SWAB (R4)+ ; (R4)=000200,CC=1000 
2536 013412 103401 BCS > SWAB2 
2537 013414 100401 BM! +4 
S255 013416 104000 SWAB2: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2540 013420 005425 NEG (R5)+ 7 (R5)=177600,CC=1001 
2541 013422 103901 BCC NEG2 
2542 013424 100401 BM! .*4 
tots 013426 104000 NEG2: HLT ;ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2545 013430 005044 CLR -(R4) ; (R4)=000000, CC=0100 
2546 013432 001401 BEQ +4 
2547 104 HLT 
2548 
2549 013436 000261 SEC 
2550 013440 006045 ROR -(R5) ; (R5)=100000, CC=1010 
2551 013442 000261 SEC 
2552 013444 005525 ADC (R5)+ ; (R5)=100001,CC=1000 
2553 013446 102401 BVS ADC2 
2554 013450 1 BMI +4 
$232 013452 104000 ADC2: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2557 013454 000262 SEV 
2558 013456 006224 ASR (R4)+ 3 (R4)=140000,CC=1001 
2559 013460 103002 BCC ASR2 
013462 102401 BVS ASR2 
2561 013464 100401 BM! +4 
$208 013466 104000 ASR2: HLT ERROR! INCORRECT CC°S AS SHOWN ABOVE 
2564 013470 000262 SEV 
2565 013472 006144 ROL -(R4) : (R4)=100001, CC=1001 
2566 013474 10300 BCC ROL4 
2567 013476 102401 BVS ROL4 
2568 013500 1004 BMI +4 
$29) 013502 104000 ROL4: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2571 013504 005645 SBC -(R5) ; (R5)=100000, CC=1000 
2572 013506 103001 BCC +4 
$252 013510 104000 HLT ERROR! 'C* BIT FAILED TO CLEAR 
2575 013512 005325 DEC (R5)+ 3 (R5)=077777,CC=0010 
2576 013514 103402 BCS DEC2 
2577 013516 102001 BVC DEC2 
2578 013520 1 BPL +4 
tha 013522 104000 DEC2: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2581 013524 006324 ASL (R4)+ 3 (R4)=177776,CC=1010 
2582 013526 102401 BVS +4 


04000 
2584 013532 006344 ASL ~(R4) 3 (R4)=177774,CC=1001 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
CEQKCD.P11 08:55 


04-0(T-79 


022724 
001401 
104000 
020405 
001401 
104000 


bpd 


177774 


000010 
001202 


000004 


001202 
177570 


gla bt 


ASLS: 


BCC ASL4S 
BVS ASLS 
BEQ ASL4S 
BMI +4 
HLT 

CMP #177774, (R4&)+ 
BEQ +4 
HLT 

CMP R4,R5 
BEQ +4 
HLT 


M 6 
04-OCT-79 09:00 PAGE 55 
K UNIARY WORD OPS USING ADDRESS MODES 2 & 4 


ERROR! INCORRECT CC°S AS SHOWN ABOVE 


J FARRAR ERE REREEREREE AREER EEE 


CHECK UNIARY BYTE OPS USING ADDRESS MODES 2 & 4 


MmARRBEAAALRASAAASLALALELAASARASEREEARA SASSER ARAL A SAR RRR RRA RAR R RAS DD | 


a4$TSTNM 
MOV arsis TNM ,, @4D I SPLAY 


;*TEST 10 
75110: SCOPE 
MOVB #10, 
BR +4 
. WORD 0 
MOV PCRS 
SUB #4,R5 
MOV R5,RO 
MOV RO,R2 
INC R2 
CLR (RO) 
SCC 
CLC 
C (R5)+ 
BCC COMB2 
BVS COMB2 
BMI +4 
COMB2: HLT 
ADCB -(R2) 
BEQ +4 
HLT 
ADCB (R5)+ 
BCS ADCB2 
BNE +4 
ADCB2: HLT 
+SEC!SEV 
RORB -(R5) 
BCC RORB4 
BVS RORB4 
BEQ RORB4 
BMI +4 
RORB4: HLT 


SCC 
ROLB (R2)+ 


;LOAD TEST NUMBER 
7zDISPLAY TEST NUMBER 
;RESERVE A WORD 

[RESERVED WORD 


7RS POINTS TO EVEN BYTE OF RESERVED WORD 


zR2 POINTS TO ODD BYTE OF RESERVED WORD 
; PRESET 


; (RO) =000377,CC=1001 


;ERROR! INCORRECT CC'S AS SHOWN ABOVE 

: (RO) =000000, CC=0101 

:ERROR! INCORRECT RESULT AS SHOWN ABOVE 
* (RO) =000400,CC=0000 

:ERROR! INCORRECT CC'S AS SHOWN ABOVE 


; (RO)=100000, CC=1001 


ERROR! INCORRECT CC'S AS SHOWN ABOVE 


; (RO)=100001 , CC=0000 


SEQ 0077 


N 6 
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2641 013710 100001 BPL +4 
oo 013712 104000 ROLB2: HLT ;ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2644 013714 000257 ccc 
2645 013716 106225 ASRB (R5)+ 7 (RO)=140001, CC=1010 
2646 013720 103402 BCS ASRB2 
2647 013722 102001 BVC ASRB2 
012724 100401 BMI +4 
4 013726 104000 ASRB2: HLT zERROR! INCORRECT CC'S AS SHOWN ABOVE 
2651 013730 105242 INCB -(R2) ; (RO) =140002, CC=0000 
2652 013732 000277 SCC . 
2653 013734 106222 ASRB (R2)+ 7 (RO) =140001, CC=0000 
2654 0613736 103402 BCS ASRB2A 
2655 013740 102401 BVS ASRB2A 
56 013742 BPL +4 
24 013744 104000 ASRB2A: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2659 013746 000266 +SEZ! SEV SET Z.V 
2660 013750 106345 ASLB -(R5) : (RO) =100001, CC=1001 
2661 013752 103003 BCC ASLB4 
2 013754 102402 BVS ASLB4 
2663 013756 001401 BEQ ASLB4 
2664 760 100401 BMI + 
2665 013762 104000 ASLB4: HLT zERROR! INCORRECT CC'S AS SHOWN ABOVE 
2667 013764 105322 DECB (R2)+ : (RO) =077401=(0774)(001] ,CC=0010 
2668 013766 103002 BCC DECB2 
2669 013770 102001 BVC DECB2 
2670 013772 100001 BPL +4 
267) 013774 104000 DECB2: HLT ZERRGR! INCORRECT CC'S AS SHOWNABOVE 
2673 013776 105645 SBCB -(R5) 7(RO)=077400, CC=0100 
2674 014000 103402 BCS SBCB4 
2675 014002 102401 BVS SBCB4 
2676 014004 001401 BEQ 6 
2677 014006 104000 SBCB4: HLT :ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2679 014010 105442 NEGB -(R2) 7 (RO)=10400,CC=1001 
2680 014012 103002 BCC NE GB4 
2681 014014 102401 BVS NE GB4 
2682 014016 100401 BMI .+ 
2683 014020 104000 NEGB4: HLT ERROR! INCORRECT CC'S AS SHOWN ABOVE 
2685 014022 105725 TSTB (R5) + 7 (RO) =100400, CC=0100 
2686 014024 103401 BCS TSTB2 
2687 014026 001401 BEQ +4 
2688 014030 104000 TSTB2: HLT 
2690 014032 105722 TSTB (R2) + 7 (RO) =100400, CC=1000 
2691 014034 001401 BEQ TSTB2A 
2692 014036 100401 BM] + 
gor 014040 104000 TSTB2A: HLT 
2695 014042 000261 SEC 


2696 014044 000342 SWAB -(R2) 3 (RO) =000201 ,CC=1000 


C=D PDP 11/70-74MP_CPU EXERCISER 
9 08:55 


DEQK 
CEQKCD.P11 04-00 T=-/ 


014046 
014050 
014052 
014054 


103401 
100401 
104000 
000277 
105225 
103003 


102402 
001401 
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110 CHECK UNIARY BYTE OPS USING ADDRESS MODES 2 & 4 


3; (RO) =000601=(0004J[201],CC=0000 
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2707 014070 104000 


oN 30A( 1052) 
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INCB2: HLT 
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2708 





=~ 


ee 
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2709 014072 022227 000601 CMP (R2)+,#000601 CHECK END RESULT 
2710 014076 001401 BEQ +6 
2711 014100 104000 HLT 
2712 014102 020205 CMP R2,R5 ZCHECK REGISTERS 
2713 014104 001401 BEQ +4 
2714 014106 104000 HLT 
2715 LARA ERR REE EER EAE RERERERRREERERERR REE 
2716 S*TEST 11 CHECK UNIARY WORD OPS USING ADDRESS MODES 3 & 5 
2717 LR EERE EERE EERE REAR ERRERERER ERE Ee 
2718 014110 000004 TST11: SCOPE 
2719 014112 112737 000011 001202 MOVE #11, a4STSTNM ‘LOAD TEST NUMBER 
2720 014120 013737 001202 177570 MOV avSTSTNM, a4 I SPLAY “DISPLAY TEST NUMBER 
2721 014126 000402 BR +6 RESERVE ‘s WORDS 
2722 014130 000000 -WORD 0 +1 FOR THE ADDRESS 
2723 «014132 “WORD 0 ‘AND 1 FOR DATA 
2724 014134 010703 MOV PC,R3 
2725 014136 162703 000004 SUB #6-R3 
2726 014142 005012 CLR (R3) :PRESET DAT 
2727 014144 010300 MOV R3,RO ‘RO POINTS 70 DATA WORD 
2728 014146 005743 TST ~(R3) 
2729 014150 010013 MOV RO, (R3) 
2730 014152 010304 MOV R3_R4 
2732 014154 000257 CCC 
2733 014156 005733 TST a(R3)+ : (RO) =000000, CC=0100 
2734 014160 001401 BEQ +4 
2735 014162 104000 HLT 
2736 
2737 014164 000261 SEC 
2738 014166 006053 ROR a-(R3) 7 (RO)=100000, CC=1010 
2739 014170 103402 BCS RORS 
2740 014172 102001 BVC RORS 
2741 014174 100401 BMI +6 
37he 014176 104000 RORS: HLT 
2744 014200 000257 ccc 
2745 014202 006234 ASR a(R) + 7 (RO) =140000, CC=1010 
2746 014204 102001 BVC ASR3 
2747 014206 100401 BM] +6 
3748 014210 104000 ASR3: HLT 
2750 014212 000250 CLN 
2751 014214 006333 ASL a(R3)+ :(R0)=100000,CC=1001 
2752 014216 10 BCC ASL3 
2753 014220 102401 BVS ASL3 
2754 014222 100401 BMI +4 
3708 014224 104000 ASL3: HLT 
2757 014226 000277 SCC 
2758 014230 005354 DEC a-(R4) : (RO) =077777, CC=0010 
2759 014232 103003 BCC DECS 
27 34 102002 BvC DEC5 
2761 014236 001401 BEQ DECS 
2762 014240 100001 BPL +4 
2763 014242 104000 DECS: HLT 


“a 
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CEQKCD.P11 04-0CT=79 08:55 T11 HECK UNIARY WORD OPS USING ADDRESS MODES 3 @ 5 SEQ 0083 
2765 0142464 005453 NEG a-(R3) 3; (RO)=100001, CC=1001 
2766 0142466 10 BCC NEGS 
2767 014250 102401 BVS NEGS 
2768 014252 100401 BM]! +4 
fas 014254 104000 NEGS: HLT 
2771 014256 000262 SEV 
2772 014260 005134 COM a(R4)+ : (RO)=077776, CC=0001 
2773 014262 103001 BCC COM3 
2774 014264 102001 BVC +4 
so 014266 104000 COM3: HLT 
2777 014270 005233 INC a(R3)+ 3 (RO)=077777, CC=0001 
2778 014272 103001 BCC oy 
2779 0142741 BPL +4 
sao 014276 104000 INC3: HLT 
2782 014300 005554 ADC a-(R4) 7 (RO)=100000, CC=1010 
2783 014302 103402 BCS ADCS 
2784 014304 102001 BVC ADCS 
2785 014306 100401 BM! +4 
see 014310 104000 ADCS: HLT 
2788 014312 000257 ccc 
2789 014314 006134 ROL @(R4)+ ; (RO) =000000, CC=0111 
2790 014316 103002 BCC ROL3 
2791 014320 102001 BVC ROL3 
2792 014322 001401 BEQ +4 
iad, 014324 104000 ROL3: HLT 
2795 014326 005253 INC a-(R3) ; (RO)=000001, CC=0001 
2796 014330 005654 SBC a-(R4) : (RO)=000000, CcC=0100 
2797 014332 103401 BC SBC5 
2798 014334 001401 BEQ +4 
2799 014336 104000 SBC5: HLT 
2800 SR RRR EERE REE E ERE ARKEEERERE EEE ERE RE 
2801 S*TEST 12 CHECK UNIARY BYTE OPS USING ADDRESS MODES 3 & 5 
2802 © Te Te Te OTT TOT TTT TRAE RR ERR ERE REE RRR REE EERE EE 
2803 014340 000004 Tér12: SCOPE 
28046 014342 112737 000012 001202 MOVB #12, a4STSTNM ;LOAD TEST NUMBER 
2805 014350 013737 001202 177570 MOV arsiSti, AAD ISPLAY ;DISPLAY TEST NUMBER 
2806 914356 000403 BR +10 RES pike 
2807 014360 000000 -WORD 0 21 POR VEVEN BYTE ADDRESS 
2808 014362 000000 . WORD 0 :1 FOR ODD +444 ADDRESS 

014364 000000 -WORD 0 ‘AND 1 FOR DATA 

2810 014366 010702 MOV PC,R2 
2811 014370 005742 TST -(R2) ;BACK R2 UP TO 
2812 014372 005742 TST -(R2) ;DATA WORD 
2813 014374 010200 MOV R2,R0 7RO or. by THE DATA WORD 
2814 014376 005010 CLR (RO) [PRESET DAT 
2815 014400 005742 TST -(R2) BACK R2 OPT 
2816 014402 005742 TST -(R2) sEVEN BYTE ADDRESS WORD 
2817 014404 010022 MOV RO, (R2)+ ;LOAD ADDRESS 
2818 014406 005200 INC RO [ODD BYTE ADDRESS 
2819 014410 010022 MOV RO, (R2) + *LOAD ODD BYTE ADDRESS 
2820 014412 010200 MOV R2,RO RESET RO 





ae 
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2821 014414 010205 MOV R2,R5 
2822 014416 105152 COMB a-(R2) : (RO) =177400, CC =1001 
2823 014420 103001 BCC COMBS 
2824 014422 100401 BM] +4 
2825 014424 104000 COMBS: HLT 
2826 014426 105752 TSTB a-(R2) ; (RO) =177400, CC=0100 
2827 014430 001401 BEQ +4 
2828 014432 104000 HLT 
2829 014434 000262 SEV 
2830 014436 106255 ASRB a-(R5) :(RO)=177400, CC=1001 
2831 014440 103002 BCC ASRAS 
2832 014442 102401 BVS ASRBS 
2833 0144464 100401 BM] + 
Sere 014446 104000 ASRBS: HLT 
2836 014450 105232 INCB @(R2)+ 7 (RO>=177401, CC=000 
2837 014452 103001 BCC INCB3 
2838 014454 100001 BPL +4 
t44 014456 104000 INCB3: HLT 
2841 014460 000241 CLC 
2842 014462 106055 RORB a-(R5) 7 (RO)=177400, CC=0111 
2843 014464 103003 BCC RORBS 
2844 66 102002 BVC RORRS 
2845 014470 001001 BNE RORBS 
2846 014472 100001 BPL +4 
944 014474 104000 RORBS: HLT 
2849 014476 106332 ASLB a(R2)+ an 2(RO)=177000, CC=1001 
2850 014500 103002 BCC ASLB3 
2851 014502 102401 BVS ASLB3 
2852 014504 100401 BM! .+4 
$e27 014506 104000 ASLB3: HLT 
2855 014510 105552 ADCB a-(R2) 7(R0)=177400, CC=1000 
2856 014512 103401 BCS ADCRS 
2857 014514 100401 BM] +4 
oo 014516 104000 ADCBS: HLT 
2860 014520 000277 scc 
2861 014522 106135 ROLB a(R5)+ 7 (RO)=177401, CC=0000 
2862 014524 101402 BLOS ROLB3 ZBRANCH IF C OR Z IS SET 
2863 014526 102401 BVS ROLB3 
2864 014530 100001 BPL +6 
cae 014532 104000 ROLB3: HLT 
2867 014534 000352 SWAB a-(R2) 7 (RO)=000777. CC=1000 
2868 014536 100401 BM! .+4 
ya 014540 104000 HLT 
2871 014542 000261 SEC 
2872 014544 105635 SBCB a(R5)+ : (RO) =000377, CC=0100 
2873 014546 103407 BCS SBCR3 
2874 014550 001401 BEQ .+4 
2875 014552 104000 SBCB3: HLT 


—— 
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2 Yi 30A( 1052) 63 
T12 CHECK UNIARY BYTE OPS USING ADDRESS MODES 3 @ 5 SEQ 0085 
NEGB a(R2)+ ; (RO) =000001 
DECB a-(R2) 3; (RO)=000000, CC=0101 
BC DECBS 
BEQ +4 
DECBS: HLT 
PeRPRBRBEOSBAAASABAASLASLSLSASZSESRESRERSE RE RES RE RE SER RR RRR RR RR RRR RRR RARER SSS SS 
S*TEST 13 CHECK UNIARY WORD OPS USING ADDRESS MODE 6 (PC) 
TEAR RPRBRBRBERABAASAASAASZAASLESERESR ESE RR ARERR RRRRRRR RASS RRR RRR RRR ARRAS SE SS 
T$113: SCOPE 
MOVB #13, a4STSTNM LOAD TEST NUMBER 
MOV @4$TSTNM,a4DI SPLAY : DISPLAY TEST NUMBER 
CLR (PC) + PRESET DATA = 0 
UWM6 : . WORD 0 SRESERVED FOR DATA 
MOV PC,RO 
a8 =-(RO) ,-(RO) RO POINTS TO DATA WORD 
ROL UWM6 7 (RO) =000001 ,CC=0000 


COM UWhi6 7 (RO)=177776, CC=1001 


ASR UWM6 3(RO)=177777, CC=1010 


ASR6E: HLT 









SCC 
NEG UWM6 7 (R0)=000001, CC=0001 
BCC NE G6 
BVS NE G6 
BEQ NE G6 
BPL +4 
NEG6: HLT 
SCC 
ROR UWM6 7(RO)=100000, CC=1001 > 





SBC UwM6 3 (RO)=077777, CC=0010 


ee 
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CEQKCD.P11 04-OCT-79 08:55 CHECK UNIARY WORD OPS USING ADDRESS MODE 6 (PC) SEQ 0086 
2933 014740 000242 CLV 
2934 014762 005267 177640 INC UWM6 5 (R0)=100000, CC=1011 
2935 014746 103403 CS INC6 
014750 102002 BvC INC6 
2937 014752 001401 BEQ INC6 
2938 014754 100401 BM 1 +4 
3474 014756 104000 INC6: HiT 
2941 014760 006267 177622 ASR UWM6 ; (RO)=140000, CC=1010 
2942 014764 000261 SEC 
2943 014766 006367 177614 ASL UWM6 3 (RO)=100000, CC=1001 
2944 014772 103002 BCC ASL6 
2945 014774 102401 BVS ASL6 
2946 014776 100401 BM! +4 
3074 015000 104000 ASL6: HLT 
2949 015002 005367 177600 DEC UWM6 : (RO) =077777, Cc=0011 
2950 15 103002 BCC DEC6 
2951 015019 102001 BVC DEC6 
2952 015012 1 1 BPL +4 
343, 015014 104000 DEC6: HLT 
2955 015016 005567 177564 ADC UWM6 7: (RO)=100000, CC=1010 
2956 015022 103402 BCS ADC6 
2957 015024 102001 BVC ADC6 
2958 015026 100401 BMi +4 
2959 015030 104000 ADC6: HLT 
2960 015032 000242 CLV 
2961 015034 000367 177546 SWAB UWM6 
2962 015040 100401 BMI +4 
2963 015042 104000 HLT 
015044 022710 000200 CMP #200, (RO) 
2965 015050 001401 BEQ .+4 
015052 104000 HLT 
2967 DOI IIISIIOIOIIUIIOIOIUIDOIUIDIIIOIUIIDIOIUIOIOIIIUIOIUIOIUIOIOIUIOIUIOIOIUIUIUIOIDIDIDIDIDIUIDIDIOI TI 
S*TEST 14 CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) 
9 TOI IOI IOIIDIOIIUIUIOIIUIDISIUIUIUIOIIUIUIOIOIOIOIUICIUIDIDIOIUIOISISISIUOIDISOIDIOISIOIIDITIOIDIN 
2970 015054 000004 TST14: SCOPE 
2971 015056 112737 000014 001202 MOVB 414 ,QASTSTNM ;LOAD TEST NUMBER 
2972 015064 013737 001202 177570 MOV @4STSTNM,@4DI SPLAY 7zDISPLAY TEST NUMBER 
2973 015072 012700 015434 MOV #UBM6 ,RO 
2974 015076 063700 001534 ADD a4FACTOR,RO zRO POINTS TO ADDRESS OF DATA 
2975 015102 005067 0003226 CLR UBM6 ;CLEAR DATA 
2976 015106 000277 SCC 
2977 015110 244 CLZ 
2978 015112 105767 000316 TSTB UBM6 
2979 015116 103403 BCS TSTB6 
2980 015120 102402 BVS TSTB6 
2981 015122 1001 BNE TSTB6 
2982 015124 100001 BPL +4 
Soaz 015126 104000 TSTB6: HLT 
2985 015130 000257 CCC 
2986 015132 105767 000277 TSTB UBM6 +1 ;TEST ODD BYTE 
2987 015136 001401 BEQ +4 
2988 015140 104000 HLT 
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CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) 


UBM6 ; (RO)=000000, CC=0100 


UBM6 ;LOOP UNTIL (RO)=077600, CC=1011 


UBM6 +1 7 INCB INST INCREMENTS EVEN BYTE 
1 ;ADCB INCREMENTS ODD BYTE 


7 (RO)=077400, CC=0111 


UBM6 +1 ;(RO)=100000, CC=1010 


UBM6 +1 ;(RO)=140000, CC=1010 


7 (RO)=140377 CC=1001 


UBM6+ 1 7 (RO)=040377, CC=0001 


UBM6 +1 3 (RO)=100777, CC=1010 


SEQ 0087 
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CHECK UNIARY BYTE OPS (EVEN/ODD) USING ADDRESS MODE 6 (PC) SEQ 0088 


3 (RO)=100777, CC=1001 


BCC ASRB6 
BVS ASRB6 
BMI +4 
ASRB6: HLT 
INCB UBM6 7: (RO)=100400, CC=0101 
BCC INCB6A 
BVS INCB6A 
BEQ +4 
INCB6A: HLT 
DECB UBM6+1 :(RO)=100000, CC=1001 


BMI +4 
DECB6A: HLT 
SWAB UBM6 :(RO)=000200, CC=1000 
BCS SWAB6 
BM! +4 
SWABE: HLT 


ROLB UBM6 ; (RO)=000000, CC=0111 


BEQ +4 
ROLB6A: HLT 

TST UBM6 7 (RO)=000000, CC=0100 

BCS TEST6 

BVS TEST6 

Q +4 

TEST6: HLT 

BR +4 ;RESERVE A WORD 

«WORD 0 ;WORD RESERVED FOR DATA 
RELE1: SCOPE 

MOV PC,R2 

ADD #12,R2 

MOV #RELOC PC ;GO RELOCATE PROGRAM CODE 
REL11: .WORD OQ 
:1111111111111 LAST ADDRESS OF CODE TO BE RELOCATED 11111111111 
DLE RK 
i*TEST 15 CHECK UNIARY WORD OPS USING ADDRESS MODE 7 
SLEEK RRR EERE EERE EERE KERR EERE EERE EERE RED 

FOV #1,$TIMES 32D0 1 ITERATION 
TST15: SCOPE 

MOVB #15 ,a4$TSTNM ;LOAD TEST NUMBER 

MOV @4$TSTNM, ADI SPLAY >:;DISPLAY TEST NUMBER 


SBTTL START OF SECTION 2 
j2222222222222 fw paneer TO ry” pears 222222222 





L 7 
C=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 67 
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3101 015502 005740 TST -(RO) ;RO CONTAINS THE ADDRESS OF REL2 
3102 015504 010037 001540 MOV RO, A#FRSTAD + SAV 
3103 015510 010700 MOV PC>RO :GET CURRENT PC 
3104 015512 162700 015512 SUB #.,RO ; SUBTRACT RELOCATION FACTOR 
3105 015516 010037 001534 MOV RO. aAFACTOR ‘SAVE RELOCATION FACTOR 
3106 015522 010737 001212 MOV PC a#SLPERR ‘SET LOOP ADDRESS 
3107 015526 737 000030 001212 ADD #30, A#SLPERR zADJUST 
3198 015534 013737 001212 001219 MOV a¥SLPERR , AASLPADR 
3109 015542 105737 001530 TSTB @ANE XEC ;BR IF TEST CODE TO BE EXECUTED 
3110 015546 001402 BEQ +6 
3111 015550 000167 004170 JMP RELE2 
3112 015554 000403 BR Uw? :RESERVE 3 WORDS FOR ADDRESSES & DATA 
3113 015556 .- WORD 0 : CONTAINS ADDRESS OF UWM7 
3114 015560 000000 UWM7 : - WORD 0 ; CONTAINS DATA 
ia 015562 000000 .- WORD 0 ;CONTAINS ADDRESS OF UWM7 
3117 015564 010700 Uw7: MOV PC,RO 
3118 015566 005740 TST -(RO) 
3119 015570 005740 TST -(RO) 
3120 015572 005040 CLR -(RO) :CLEAR TEST DATA 
3721 015574 010002 MOV RO,R2 
3122 015576 010240 MOV R2,-(RO) ;SET UP ADDRESS 
3123 015600 005720 TST (RO) + “MOVE RO TO NEXT ADDRESS 
3124 015602 005720 TST (RO) + 
3125 015604 010210 MOV R2, (RO) ;SET NEXT ADDRESS 
3126 015606 010200 MOV R2.RO ‘SET RO POINTING TO DATA 
3127 015610 000277 SCC 
3128 015612 000244 CLZ 
3129 015614 005772 000002 TST @2(2) : (RO) =000000, CC=0100 
3130 015620 001401 BEQ +6 
3131 015622 104000 HLT 
3133 015624 000277 SCC 
3134 015626 005672 177776 SBC a-2(2) :(RO)=177777, CC=1001 
3135 015632 103002 BCC SBC7 
136 015634 102401 BVS SBC7 
3137 015636 100401 BMI +6 
5138 015640 104000 SBC7: HLT 
3140 015642 000277 Sscc 
3141 015644 000241 CLC 
3142 015646 006372 000002 ASL @2(2) :(RO)=177776, CC=1001 
3143 015652 103002 BCC ASL? 
3144 015654 102401 BVS ASL7 
3145 015656 1004 BMI +4 
3146 015660 104000 ASL7: HLT 
3148 015662 000257 ccc 
3149 015664 005372 000002 DEC a2(2) :(RO)=177775, CC=1000 
3150 015670 103402 BCS DEC? 
3151 015672 102401 BVS DEC7 
3152 015674 100401 BM! +6 
3153 015676 104000 DEC?: HLT 
3155 015700 000262 SEV 
3156 015702 006272 177776 ASR a-2(2) = (RO)=177776, CC=1001 
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177776 


000002 


177776 


000002 


000002 


177776 


000002 


177776 
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START OF SECTION 2 


BCC ASR7 
BVS ASR7 
BM! +4 
ASR7: HLT 
; CLC 
SEV 
ROR a-2(2) : (RO)=077777, CC=0000 
BLOS ROR7 ;BRANCH IF C OR Z IS SET 
BVS ROR7 
BPL +4 
ROR?: HLT 
SEV 
NEG a2(2) 7; (RO)=100001, CC=1001 
BCC NEG7 
BVS NEG7 
BMI +4 
NEG7: HLT 
CLN 
SWAB a-2(2) ; (RO)=000600, CC=1000 
BCS SWAB7 
BMI +4 
SWAB7: HLT 
SEV 
COM a@2(2) :(RO)=177177, CC=1001 
BCC COM7 
BVS COM7 
BMI +4 
COM7: HLT 
SWAB a2(2) :(RO)=077776, CC=1000 
BM! +4 
HLT 
SCC 
ADC a-2(2) :(RO)=077777, CC=0000 
BCS ADC7 
BVS ADC7 
BPL +4 
ADC7: HLT 
INC a2(2) ;(RO)=100000, CC=1010 
BVC INC7 
BMI +4 
INC7: HLT 
CCC 
ROL a-2(2) ;(RO)=000000, CC=0111 
BCC ROL 7 
BVC ROL7 
BEQ +4 
ROL 7: HLT 


CAAA AAR AREER AREER EERE ERERERAE RARER AARAEAARERARARAERAREK ES 


SEQ 0090 
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CEQKCD.P11 04-OCT-79 08:55 116 CHECK UNIARY BYTE OPS USING ADDRESS MODE 7 SEQ 0091 
3213 :*TEST 16 CHECK UNIJARY BYTE OPS USING ADDRESS MODE 7 

3214 J FARRAR RARER RERAEREKERERRREARRRARRERERARARERAHRAERER REED 
3215 016064 000004 1116: SCOPE 

3216 016066 112737 000016 001202 MOVB #16, 04STSTNM ;LOAD TEST NUMBER 

3217 016074 013737 001202 177570 MOV @4$TSTNM,a4DISPLAY ; DISPLAY TEST NUMBER 
3218 016102 012700 015560 MOV #UWM7 ,RO 

3219 016106 063700 001534 ADD a#F ACTOR,RO 

3320 016112 010002 MOV ROR 

3221 016114 010067 177442 MOV RO, UWM7+2 

3222 016120 005720 TST (RO) + 

3223 016122 005210 INC (RO) ;WORD FOLLOWING UWM7 CONTAINS ADDRESS 
3224 016124 005740 TST =-(RO) ;OF ODD BYTE, RO POINTS TO DATA WORD 
3225 016126 005010 CLR (RO) “PRESET DATA 

3226 016130 010067 177422 MOV RO, UWM7=2 

$556 sNOTE: @2(2) REFERENCES THE ODD BYTE, AND @-2(2) REFERENCES THE EVEN BYTE. 

29 016134 000263 +SEC!SEV ;SET C AND V 

30 16136 105672 000002 SBCB a2(2) :(RO)=177400, CC=1001 

3231 016142 103003 BCC SBCB7 

32 016144 102402 BVS SBCB7 

3233 016146 001401 BEQ SBCB7 

3234 016150 100401 BM] +4 

3235 016152 104000 SBCB7: HLT 

3237 016154 000277 sc SET CONDITION CODES 

3238 016156 105572 177776 ADCB a-2 (2) :(RO)=177401, CC=0000 

3239 016162 103403 BCS ADCB7 

3240 016164 102402 BVS ADCB7 

3241 61 001401 BEQ ADCB7 

3242 016170 00001 BPL +4 

3243 016172 104000 ADCB7: HLT 

3245 016174 105172 177776 COMB a-2(2) :(RO)=177776, CC=1001 

3246 016200 103002 BCC COMB? 

3247 016202 102401 BVS COMB7 

3248 016204 100401 BMI +6 

3249 016206 104000 COMB7: HLT 

3251 016210 000241 CLC CLEAR CARRY 

3252 016212 106072 000002 RORB = @2(2) <tRO)S =077776, CC=0011 

3253 016216 103002 BCC RORB7 

3254 016220 102001 BVC RORB7 

3255 016222 100001 BPL +4 

3256 016224 104000 RORB7: HLT. 

3258 016226 105272 000002 INCB 22) :(RO)=100376, CC=1011 

3259 016232 103002 BEC ~i.* -INCBZ 

3260 016234 102001 Bvc «!"S INCB? 

3261 016236 100401 BMI-s 644 

3262 016240 104000 INCB7: HLT 

3264 016242 105372 177776 DECB = @2(2) : (RO)=100375, CC=1001 

3265 016246 103002 BCC DECB7 

3266 016250 102401 BVS DECB7 

3267 016252 100401 I a 


BM 
3268 016254 104000 DECB7: HLT. . 
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716 CK UNIARY BYTE OPS USING ADDRESS MODE 7 SEQ 0092 
ASLB @2(2) ; (RO)=000375, CC=0111 
BCC ASLB7 
BVC ASLB7 
BEQ -*4 
ASLB7: HLT 
CLC sCLEAR C 
ASRB a@-2(2) 7 (RO)= 000876, Cc=1001 
BCC ASRB7 
BVS ASRB7 
BMI +4 
ASRB7: HLT 
NE a2(2) ; (RO)=000376, CC=0100 
BCS NE GB7 
BVS NE GB7 
BEQ +4 
NEGB7: HLT 
SEV 
ROLB a-2(2) ; (RO) =00374, CC=1001 
8 ROLB7 
BVS ROLB7 
BMI +4 
ROLB7: HLT 
INCB a-2(2) : (RO)=000375, CC=1001 
INCB a-2(2) :(RO)=000376, CC=1001 
ADCB a-2(2) 7 (RO) =000377, CC=1000 
COMB a-2(2) 7 (RO)=000000, CC=0100 
~e +4 
HL 
J FEAR ERREEARRREEKEEREREREEREEEAERERERRERRRARAARERRRERERERE ED 
s*TEST 17 CHECK BINARY OPS USING ADDRESS MODE 0 
FLARE EEKEREREEEREREREEERREREAEEERERRRRRE EE 
TST17: SCOPE 
MOVB #17, Q4STSTNM LOAD TEST NUMBER 
MOV a#$TSTNM, a#DISPLAY - DISPLAY TEST NUMBER 
SCC ;SET CONDITION CODES 
MOV PC,RO *RO=PC, CC=x001 
BCC mMOVO 
BVS mMOoVO 
BNE .+4 
mMOVO: HLT 
MOV RO,R2 ;R2=RO0 
SEV sSET V 
SLB RO,R2 :R2=000000, Cc=0100 
BCS SUBO 
BYS SUBO 
BEQ +4 
SUBO: HLT 
CLZ 


MOV R2,R3 ;R2=R3=000000, CC=0100 
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016546 
016550 


103401 
001401 
104000 


000257 
000272 
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MOVOA: 


CHECK BINARY OPS USING ADDRESS MODE 0 
BCS MOVOA 
BEQ 


~*4 
HLT 
+SEV! SEN ;SET V&N 
MP R2,R3 7R2=R3=0000090, cCcC=0100 
BCS CMPO 
BVS CMPO 
BNE CMPO 
BPL +4 
HLT 
MOV RO,R2 ;RO=R2 
MOV R3 ;RO=R2=R3 
ADD R2.R3 3R3=2*RO 
ASL R2 ;R2=2*RO0 
CMP R2,R3 [R2=R3=2*RO 
BEQ +4 
HLT sERROR! CHECK ADD INSTRUCTION 


7; THE FOLLOWING SUBTEST SHIFTS A BIT THROUGH R2 AND R5 AND DOES A 
;BIT saa ota eos R2 AND RS. 


1$: 
2s: 


3$: 
4$: 


BISO: 


INC R2 7R2=1 

BR 2$ 

ASL R2 

BMI 4$ 

MOV R2,R5 

SCC sSET CC°S 

BIT R2,R5 gR2=R5, CC=xX001 
BCC 3$ 

BVS 3$ 

BNE 1$ 

HLT 

MOV R2,R5 in AND R5= 100000 (OC TAL > 
CCC LEAR CC'S 

BIT R2,R5 Re R5, CC=1000 
BM! +4 

HLT 

CLR R2 

SCC SET CC*S 

BIS RO,R2 zRO=PC (NON-ZERIO DATA), CC=x001 
BCC B1ISO 

BVS BISO 

BNE +4 

HLT 

MOV RO,R3 

SCC 3CC=1111 

CLZ 

BIC RO,R3 sRO=R3, CC=0101 
BCC BICO 

BVS BICO 


SEQ 0093 
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CEQKCD.P11 04-OCT-79 08:55 CHECK BINARY OPS USING ADDRESS MODE 0 SEQ 0094 
3381 016604 1090001 BPL .*4 
sang 016606 104000 BICO: HLT 
3384 016610 01 MOV RO,R4S 
3385 016612 005104 COM R4 
016614 040004 BIC RO,R4S ;RO=COMPLEMENT OF R4, R4 REMAINS UNCHANGED 
3387 016616 005104 COM RS 
16620 020004 CMP RO,R4 7RO=R4 
016622 001401 BEQ +4 
$35) 016624 104000 HLT 
3392 016626 01 MOV RO,R4 
3393 016630 005104 COM R4 
3394 016632 010403 MOV R4,R3 ZR3=R4 
3395 016634 050003 BIS RO,R3 *R3=COMPLEMENT OF RO, CC=1001 
3396 016636 103001 BCC BISOA 
3397 016640 100401 BM] +4 
3398 016642 104000 BISOA: HLT 
3399 016644 005203 INC R3 7R3=0 AFTER INC 
3%400 016646 001401 BEQ .+4 
3401 016650 104000 HLT 
3402 016652 010304 MOV R3.R4 :R3=R4=0 
3%403 016654 005103 COM R3 *R3=177777 
3404 016656 000261 SEC :SET C 
3405 016660 006004 ROR R4 ;R4=100000 
016662 060304 ADD R3,R4 *R3=177777,R4=077777, CC=0011 
3407 016664 103003 BCC ADDO 
3408 016666 102002 BVC ADDO 
3409 016670 001401 BEQ ADDO 
3410 016672 1 BPL +4 
3411 016674 104000 ADDO: HLT 
3412 016676 010700 MOV PC.RO :RO=PC 
3413 016700 022020 C (RO)+, (RO) + *RO=RO+4 
3414 016702 020007 CMP RO,PC :PC=PC+4=R0 
3415 016704 001401 BEQ .+4 
=\$ 016706 104000 HLT 
3418 016710 010700 MOV PC,RO ;RO=PC 
3419 016712 062700 000010 ADD #10,R0 :RO=PC+10(8) 
3420 016716 010002 MOV RO.R2 ;R2=RO 
3421 016720 020700 CMP PC,RO ;RO=PC 
3422 016722 001002 BNE CMPOA 
3423 016724 020200 CMP R2,RO0 ;R2=RO 
3424 016726 001401 BEQ .+4 
3425 016730 104000 CMPOA: HLT 
3426 DLA ERERHREAERERAEREERRERRERERKERERRATEEEERE RHEE 
3427 :*TEST 20 CHECK BINARY OPS USING ADDRESS MODE 1 
3428 SLATER RREAERAAEERREAERAEAAEAEERRAKARERRAERAER EEE 
3429 016732 000004 TST20: SCOPE 
3430 016734 112737 000020 001202 MOVB #20, a4$TSTNM ;LOAD TEST NUMBER 
3431 016742 013737 001202 177570 MOV @4$TSTNM, aD I SPLAY ; DISPLAY TEST NUPBER 
3432 016750 000402 BR +6 ;RESERVE TWO WORDS 
3433 016752 000000 -WORD 0O ;RESERVED FOR SOURCE DAT 
3434 016754 000000 -WORD 0 “RESERVED FOR DESTINATION DATA 
3435 016756 010704 MOV PC,R4 
3436 016760 005744 TST -(R4) 
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CEQKCD.P11 04-0CT=79 08:55 T20 HECK BINARY OPS USING ADDRESS MODE 1 SEQ 0095 
3%437 016762 005044 CLR -(R4) :R4 POINTS TO DESTINATION DATA 
3%438 016764 010403 MOV RS RS 
44 016766 005043 CLR -(R3) ;R3 POINTS TO SOUCE DATA 
3441 016770 005113 COM (R3) 3 (R3)=177777 
3442 016772 005214 INC (R4) 3 (R4)=000001 
3443 016774 000262 SEV ;SET V 
3444 016776 061374 ADD (R3), (RS) 3 (23)=177777, (R4)=000000, CC=0101 
3445 017000 103002 BCC ADD | 
3446 017002 102401 BVS ADD1 
3447 017004 001401 BEQ -*4 
ee: 017006 104000 ADD1: HLT 
3450 017010 000277 Scc 
3451 017012 000250 CLN 
3452 017014 021314 CMP (R3),(R4) 3 (R3)=177777, (R4)=000000, CC=1000 
3453 017016 103403 BCS CMP 1 
3454 017020 102402 BVS CMP 1 
3455 017022 001401 BEQ CMP 1 
3456 017024 100401 BMI +4 
ot 017026 104000 CMP1: HLT 
3459 017030 000277 scc 
3460 017032 000244 CLZ 
3461 017034 031314 BIT (R3),(R4) 7 (R3)=177777, (R4)=000000, CC=0101 
3462 017036 103002 BCC BITT1 
3463 017040 102401 BVS BITT1 

017042 001401 BEQ +4 
oH 617044 104000 BITT1: HLT 
3467 017046 000277 
3468 017050 000245 +CLC!CLZ 
3469 017052 005114 COM (R4) 3 (R4)=177777 
3470 017054 161314 SUB (R3), (RS) 3 (R3)=177777, (R4)=000000, CC=0100 
3471 017056 103402 BCS SUB1 
3472 017060 102401 BVS SUB1 
3473 017062 001401 BEQ +4 
oth 017064 104000 SUB1 HLT 
3476 017066 105013 CLRB (R3) 7 (R3)=177400 
3477 017070 000313 SWAB (R3) 3 (R3)=000377 
3478 017072 000270 SEN 
3479 017074 011314 MOV (R3), (RS) 7 (R3)=(R4)=000377 
3480 017076 100001 BPL +4 
3481 017100 104000 HLT 
3482 017102 000314 SWAB (R4) 7 (R3)=000377, (R4)=177400 
3483 017104 000263 +SEC!SEV sSET C &V 
3484 017106 051314 BIS o (R4) 7 (R3)=000377,(R4)=177777, CC=1001 
3485 017110 103002 BCC BIS 
3486 017112 102401 BVS BIS 
3487 017114 100401 BM! +4 
sae 017116 104000 BIS1: HLT 
3490 017120 041314 BIC (R3),(R4) 3 (R3)=000377, (R4)=177400, CC=1001 
3491 017122 103002 BCC BIC! 
3492 017124 102401 ByS BIC 
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017126 
017136 


017132 


017144 
017146 


017150 


017170 
017172 


017174 


017210 
017212 
017214 
017216 


017220 


017250 


017252 
017256 


BIC: 


CMP 1A: 


SUBIA: 


SUB1B: 


ADD1A: 


ADD1RB: 


MACY11 30A(1052) 
T20 


+6 


(R3), (RG) 
CMP 1A 
CMP 1A 


CMP1A 
+4 


(R3) 

(R3) 
(R3),(R4) 
(R4) 
(R3),(R4) 
SUB1A 


SUBIA 
+4 


(R3), (RS) 
SUB1B 
SUB1B 

+4 


(R3), (R4) 
MoV) 

+4 
(R3) , (R4) 
ADDIA 
ADD1A 


ADD1A 
+4 


(R3) 
(R3),(R4) 
(R3),(R4) 
ADD1B 


ADD1B 
+4 


#2,(R4) 
(R4) 
+4 
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CHECK BINARY OPS USING ADDRESS MODE 1 





sSET V 
7 (R3)=000377, (R4)=177400, 


; (R3)=000000 
; (R3)=100000 
3 (R3)=(R4)=100000 


3 (R4)=077777 
3 (R3)=100000, (R4)=177777, 


3 (R3)=100000, (R4)=077777, 
BRANCH IF C OR Z IS SET 


7 (R3)=100000, (R4)=100000, 


3 (R3)=100000, (R4)=000000, 


3 (R3)=077777 
3 (R4)=077777 
3 (R3)=077777, (R4)=177776, 


CHECK FINAL RESULT 












CC=0001 


Cc=1011 


CC=0000 


Cc=1000 


Cc=0111 


Cc=1010 
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3563 017326 
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000402 


000021 
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TST21: 


MOVB1: 


CMPB1 : 


BITBI: 


BISB1: 


BICBI: 


CHECK BINARY BYTE OPS USING ADDRESS MODE 1 


SCOPE 

MOVB #21 ,@A$TSTNM 

MOV wt ac tirtasnctrirrits 
re 


LOAD TEST NUMBER 
DISPLAY TEST NUMBER 


BR 

-WORD 0 

-WORD VU 

MOV PC,R5 

TST -(R5) 

CLR -(R5) 7 (R5)=000000 

MOV R5,R2 

CLR -(R2) 3 (R2)=000000 

INC R2 ;R2 POINTS TO ODD BYTE 
COMB (R2) 3; (R2)=177400 

Scc 

MOVB (R2),(R5) : (R2)=177400, (RS) =000377,CC=1001 
BCC MOVB 

BVS MOVR1 

BEQ MOVB1 

BPL MOVB1 

INCB (R5) CHECK RESULT 

BEQ +4 

HLT 

ASLB (R2) sSHIFT (R2) UNTIL 
BVC -2 + (R2)=000000 

RORB (R2) : (R2)=100000 

DECB (R5) :(R5)=00377 

een (R5) : (R5)=000177 

Cte 

CMPB —s- (R85), (R2) : (R5)=000177, (R2)=100000, CC=1010 
BYVC CMPB1 3 
BM! +4 

HLT 

CLR R3 

SEC 

ROR R3 ;R3=100000 


— 
wn 


(R5) 7 (R5)=100177 


B R3, 
+SEC! SEV! SEN SET C,V, &N 
BITB Oe 7 (R2)=100000, (R5)=100177, CC=0101 


BVS BITB1 

BEQ -*4 

HLT 

BISB (R2),(R5) 3 (R2)=100000, (R5)=100577, CC=1001 
BCC BISB1 

BMI +4 

HLT 

BICB (R2),(R5) 7 (R2)=100000, (R5)=100177, CC=0001 
BCC BICB) 

BEQ BICB1 

BPL -*4 


SEQ 0097 
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CEQKCD.P11 04-OCT-79 08:55 T21 HECK BINARY BYTE OPS USING ADDRESS MODE 1 SEQ 0098 
3605 
3606 017442 105112 COMB (R2) 3 (R2)=077400, (R5)=100177 
3607 017444 121215 CMPB (R2),(R5) 
3608 917446 001401 BEQ +4 
std 017450 104000 HLT 
3611 017452 141512 BICB (R5) ,(R2) 3 (R5)=100177, (R2)=000000, CC=0100 
3612 017454 001002 BNE BICBIA 
3613 017456 10571 TSTB (R2) 
3614 017460 001401 BEQ -*4 
ol? 017462 104000 BICBIA: HLT 
3617 017464 000402 BR -*6 RESERVE TWO WORDS FOR DATA 
3618 017466 000000 -WORD Q » SOURCE DATA 
3619 017470 000000 -WORD 0 DEST DATA 
3620 017472 010705 MOV PC,R5 
3621 017474 005745 TST -(R5) 
3622 017476 105045 CLRB ~(R5) ;RS POINTS TO DEST ODD 8YTE 
3623 017500 010504 MOV R5,R4 
3624 017502 105044 CLRB -(R4) 3R4 POINTS TO DEST EVEN BYTE 
3625 0175046 010403 MOV R4 ,R3 
3626 017506 105043 CLRB -(R3) ;R3 POINTS TO SOURCE ODD BYTE 
3627 017510 010302 MOV R3,R2 
“35 017512 105042 CLRB -(R2) zR2 POINTS TO SOURCE EVEN BYTE 
36390 ; COMMENTS ARE LEAST SIGNIFICANT 4 BITS OF BYTES pew lg TO BY R2,R3 
33 [R4, AND R5 RESPECTIVELY AND THE REMAINING BITS ARE 0'S 
3632 017514 000261 SEC 7 SET CARRY 
3633 (R2), (R3), (R4), (RS) 
3634 017516 106112 ROLB (R2) ‘0001; ;0000.0000; 0000 
3635 017520 111214 MOVB (R2) , (RS) ; 0001 ,0000.0001 0000 
3636 017522 106112 ROLB (R2) :0010,0000, -0009 
3637 017524 111213 MOVB (Re), (R3) :0010,0010,0001 ,0000 
017526 106112 ROLB (R2) :0100,0010,0001 ,0000 
3639 017530 111315 MO (R3),(R5) 30100,0010,0001.0010 
3640 017532 106112 ROLB (R2) :1000,0010,0001 ,0010 
3641 017534 106113 ROLB (RS) :1000,9100,0001 ,0010 
3642 017536 151215 B1SB (R2) ,(R5) ;1000,0100.0001,1010 
3643 017540 131512 BITB (R5) ,(R2) ;1000,0100,0001,1010 
3644 017542 001426 BEQ BIN1 
3645 017544 151314 BISB (R3),(R4) ;1000,0100.0101,1010 
3646 017546 131413 BITB (R4) , (R3) ;1000,0100,0101,1010 
3647 617550 001423 BEQ BIN] 
3648 017552 105213 INCB (R3) :1000,0101,0101,1010 
3649 017554 121314 CMPB (R3) ,(R4) :1000,0101,0101,1010 
3650 017556 001020 BNE BIN! 
3651 0175 106113 ROLB (R3) :1000,1010,0101,1010 
3652 017562 121315 CMPB (R3),(R5) 31000,1010,0101,1010 
3653 017564 001015 BNE BIN] 
3654 017566 106212 ASRB (R2) 30100,1010,0101,1010 
3655 017570 131214 BITB (R2), (R4) 30100,1010,0101,1010 
3656 017572 001412 BEQ BIN] 
3657 017574 106015 RORB (R5) :0100,1010,0101,0103 
3658 017576 121415 CMPB (R4),(R5) 30100,1010,0101,0101 
3659 017600 001007 BNE BIN] 
017602 105314 DECB (R4) 30100,1010,0100,0101 





C=D PDP 11/70-74MP yt —— 


DE Qk 
CEQKCD.P11 


3661 
3662 
3663 


3665 


gee 


017724 
Ores 


017752 
017754 


017774 


04-OCT-79 0 


o----— 


103001 


000022 001202 
speed 177570 


000001 
177777 


000001 


I 8 
a 30A(1052) 04-OCT-79 09:00 PAGE 77 


CHECK BINARY BYTE OPS USING ADDRESS MODE 1 
BICB (R2), (RS) 30100,1010,0000,0101 
BN BIN] 

MOVB (R3), (RS) 30100,1010, 44'S 0101 


ASRB (R3) :0100.0101.1010.0101 
BICB — :0100.0101.1010,0101 


BEQ 
BIN1: HLT 
FF ARARAARAARAAARAAAAARARARAARARRARRRRAAAAARARRARAREARRARARARARRRRHHE 
s*TEST 22 CHECK BINARY WORD OPS USING ADDRESS MODE 2 & 4 
ORR RBABBRBSBAESSAASLALSZASLSESE SESE SERRE RR RRS RRR RRR ARERR SESE RSR SRE RRS SS 
té122: SCOPE 
MOVB #22 ,Q4STSTNM LOAD TEST NUMBER 
MOV @4STSTNM,@ADISPLAY 2 DISPLAY TEST NUMBER 


ADD2: 


BIS2: 


MOV #B1(B1A+6,R4 
MOV #BICBIA+4 ,R2 
ADD @4F ACTOR ,R2 
ADD @A4FACTOR RS 


MOV R4,R5 :SET DESTINATION REGISTER 

MOV #1,(R5) 

MOV #-1,(R2) 

ECE 

SEV 

ADD (R2)+,(R5)+ : (R2)=177777, (R5)=000000, CC=0101 
BCC ADD2 

BVS ADD2 

BEQ +4 

HLT 

SEV ET Vv 

CMP -(R5) 41 7 (R5)=000000, CC=1001 

BCC CMP2 

BVS CMP2 

BM! +4 

HLT 

BIS -(R2),(R5)+ s (R2)=177777, (R5)=177777,CC=1901 
BCC BIS2 

BM] +4 

HLT 

SCC 

CLZ 

be by Ca 27 (RS) : (R2)=177777, (RS5)=000000, cC=0100 
BVS SUB2 

BEQ +4 

HLT 

NEG -(R2) 7 (R2)=000001 

COM (RS) + (R5)= 177777 

Scc 

CLN 

BIC (R2)+,(R5)+ 3 (R2)=000001, (R5)=177776, CC=1001 
BCC BIC2 

BVS BIC2 


SEQ 0099 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 


CEQKCD.P11 


017776 


02 
020112 


020114 


020142 
020144 


020152 


104000 
012742 
5 


04-OCT-79 08:55 


125252 


125252 


000001 


001540 


000023 
001202 


001202 
177570 


MACY11 30A(1052) 
T22 


BlCc2: HLT 


B 
BITT2: HLT 


8M 
BIS2A: HLT 


BM 
SUB2A: HLT 


8 
04-0 T= -79" 09:00 PAGE 78 
CHECK BINARY WORD OPS USING ADDRESS MODE 2 &@ 4 


#125252,=(R2) 
(R2)+,=(R5) 
(R5)+ 

-(R2) ,=(R5) 
BITT2 

BITT2 

+4 


(R2)+, (RS)+ 
BIS2A 


BIS2A 
+4 


#125252,-(R5) 
(R5)+ 

-(R2) ,-(R5) 
+4 


PC,R2 
R2,R5S 
~(R2),-(R5) 
+4 


R2,@4FRSTAD 
1$ 


3 (R5)=052525 
3 (R2)=125252, (R5)=052525, CC=0101 


3 (R2)=125252, (R5)=177777, CC=1001 


3 (R5)=052525 
7 (R5)=125252 


3(R2)=177777 
7 (R2)=177776, CC=1000 


GET CURRENT PC 
:MOVE TO RS 
COMPARE ALI. PREVIOUS MEMORY ADDRESSES 


;ERROR! 
:CHECK FOR LOW LIMIT 


DD KREME ERA RE E EKER E 


CHECK BINARY BYTE OPS USING ADDRESS MODE 2 & 4 


RRR ERE KERR REE REE EERE ERE KEE EERE EER ERE 


Z*TEST 23 
15123: SCOPE 


FIRST o AUTO RSA GRO 


#23, a4$TSTNM 

ais Sth, .@ADISPLAY 
0 

0 

PC ,R3 

-(R3) 


;LOAD TEST NUMBER 
>:DISPLAY TEST NUMBER 
RESERVE He WORDS 

SOURCE DAT 

‘DESTINATION DATA 


RO=ADDRESS OF MOV ABOVE 
2=R0 
:R2=RO0-1 


SEQ 0100 


K & 
DEQKC=D PDP 11/70-74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 79 
CEQKCD.P11 04-OCT-79 08:55 123 CHECK BINARY BYTE OPS USING ADDRESS MODE 2 & 4 SEQ 0101 


020154 MO SP RS 
020156 -(R5) 7R5=SP=2 


-(RO) ,-(SP) RO=RO-1, SP=SP=2 
R5,SP ;R5=SP 


BINS 
R2,RO ;R2=RO0 
BI . 


NB 
(RO) +, (SP)+ RO=RO+1, SP=SP+2 
R4,SP zR4=SP (SP BACK TO ORIGINAL ) 
020176 BINB 





DEQKC=D PDP 11/70-74MP CPU EXERCISER 
CEQKCD.P11 79 08:55 


es 


See eee eee 
OUOONAUSWH—-O 


Mm 
—_ 


05031 
020316 


020324 


020326 
0 


04-0CT- 


152324 
100401 
104000 


122324 


013737 
000404 


000200 
000377 


000177 
000000 


000024 001202 


001202 


177570 


MACY11 ay whe 
123 


BINB: HLT 


CMPB2: HLT 


8 
BITB2: HLT 


L 8 
04-OCT-79 09:00 PAGE 80 
ECK BINARY BYTE OPS USING ADDRESS MODE 2 & 4 SEQ 0102 


RO,R3 
BINS 
-(SP) ,=(RO) 
R5,SP 
BINB 
R2,RO 


BINB 
oo 


(R3)+,(R4)+ 
+4 


(R3)+, (R4)+ 
CMPB2 


CMPB2 
+4 


~(R3) ,-(R4) 
BITB2 
BITB2 

+4 


~(R3) ,-(R4) 
+4 


;RO=R3 (RO BACK TO ORIGINAL) 
7SP=SP=2, RO=RO-1 
R5=SP 


;R2=RO 
;SP=SP+2,RO=R0+1 (SP BACK TO ORIGINAL) 
RG=SP 


;RO=R3 


;RO=R3 
[R3=ODD BYTE (UPPER BYTE) 
7 (R3)=190377, R3=EVEN BYTE (LOWER BYTE) 


;R4= ODD BYTE (UPPER BYTE) 
7 (R4)=077400, R4=EVEN BYTE (LOWER BYTE) 


7 (R3)=100377, (R4)=077777 


:CC=0x10 


;SET C BIT, CC=0x11 
CC=x1 


3 (R3)=100377, (R4)=077400 


DLR RR KER EEE REE EERE EERE REE KEE EEK EERE ERE REE AR RE REEREEE 


CHECK BINARY WORD OPS USING ADDRESS MODES 3 & 5 


~MmASSAAASLA£LASLASLESALSLESLSLESA LASS ASA R AEE SRR ASRS ASA RSA SESSA REDS DS 


T*TEST 26 
15124: SCOPE 
VB 


2$: MOV 


#24 ,QASTSTNM ;LOAD TEST NUMBER 

a4STSTNM, ADI SPLAY ;;DISPLAY TEST NUMBER 

2$ ;RESERVE’ SPACE FOR DATA AND ADDRESSES 
0 ;CONTAINS ADDRESS OF SOURCE DATA 

0 [CONTAINS ADDRESS CF DEST DATA 

0 CONTAINS SOURCE DATA 

0 CONTAINS DEST DATA 

PC,R1 

R1,RO SET SCOPE PTR 


DEQKC=D PDP 11 
CEQKCD.P11 


020512 
020514 
020516 
020520 
020522 


020524 
620526 


8 
/70=74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79" 09:00 PAGE 81 
04-OCT-79 08:55 T24 CHECK BINARY WORD OPS USING ADDRESS MODES 3 & 5 


=(RO) ,=(RO) RO 
‘RS POINTS TO DEST DATA 
=ihs) -(R5) ;SUB 4 FROM R5 


(R5) ‘R5 POINTS TO ADDRESS OF DEST DATA 
zR4 POINTS TO DEST DATA 
:R3 POINTS TO SOURCE DATA 
*R2 POINTS TO -ADDRESS OF SOURCE DATA 


:PRESET SOURCE 
PRESET DEST DATA 


a ; (R3)=000000, (R4)=000000, CC=0100 
SUB3 
+4 


#100000,a-(R2) ;(R3)=100000 
#1,a-(R5) + (R4)=000001 
a(Re)+, ,a(R5)+ :(R3)=100000, (R4)=100001, CC=1011 


SUB3A 
+4 


3 (R4)=077777 


(R4) 
a aicerlinnae 7 (R3)=100000, (R4)=077777 
+ 


@(R2)+,a(R5)+ 
+4 


a-(R2) 
@(R2)+,a-(R5) 
ADD3 

+4 


>) saben 3 (R3)=077777, (R4)=100000 


+4 


a-(R5) 3 (R4)=077777 
oY ‘ii cetataahl + (R3)=077777, (R4)=077777 
.+ 


ZDIGIU IOUS UISIOISIOISISIOISISIISIOIIIOIOIUIOIOIDIOIIOIOIDIOIIDIUIIOIIOIDIIOIOIIOISOI IOI DIDI I OI I 
Z*TEST 25 CHECK BINARY BYTE OPS USING ADDRESS MODES 3 & 5 
DIDI IOIOIDIOISIDIOISIOIIOIOIDIOISIOIOIOIOIOIOIOIIOIUIDIOI IOI ICID IOI IDI IODIDE I IDI 

0C0004 TST25: SCOPE 

112737 000025 001202 MOVB #25 ,GA$TSTNM ;LOAD TEST NUMBER 


SEQ 0105 








C=D PDP 11/70-74MP cy. eerste 


DEQK 
CEQKCD.P11 


3896 
3897 
3898 


020710 


020712 


013737 


04-0CT-79 0 


001202 


177001 
000200 


000600 


100601 


177570 


MACY11 30A(1052) 
T25 


BITB3: 


CMPB3: 


8 
04-0CT- -79" 09:00 PAGE 


82 
CHECK BINARY BYTE OPS USING ADDRESS MODES 3 @ 5 


MOV 
BR 


HLT 


@ASTSTNM, 4D ISPLAY 7;DISPLAY TEST NUMBER 


1$ ;RESERVE SPACE FOR ADDRESS AND DATA 
" CONTAINS ADDRESS OF SOURCE DATA (EVEN BYTE? 
0 CONTAINS ADDRESS OF SOURCE DATA (ODD BYTE) 
0 CONTAINS ADDRESS OF DEST DATA (EVEN BYTE) 
0 :CONTAINS ADDRESS OF DEST DATA (ODD BYTE) 
0 CONTAINS SOURCE DATA 
0 :CONTAINS DEST DATA 
PC,RO 
=(RO},-(RO) __:RQ=ADDRESS OF DEST DATA 
R3.R5 ae a “ 
~(R3) ;SUB_2 FROM R3 
RO,~(R3) :R3 POINTS TO ADDRESS OF DEST DATA 
(R3) ;0DD BYTE 
RQ. (R3) ZEVEN BYTE 
-(RO) ;RO=ADDRESS OF SOURCE DATA 
RO, ~(R4) :R4 POINTS TO ADDRESS OF SOURCE DATA 
(RG) :0DD BYTE 
RO,~(R4) ZEVEN BYTE 
;SET CARRY 
#177001 ,a(R4)+ 


#200, a(R4)+ ;SOURCE DATA=100001 
a-(R4) ,a(R3)+ 

oe ens ;DEST DATA=000600 
.+ 


;ERROR! MOV DOES AFFECT C BIT IN PSW 


het ;CHECK DEST DATA 
.+ 

;ERROR! INCORRECT RESULT 
~(R3) ,-(R3) :POINT R4 BACK TO EVEN BYTE 
@(R4)+,a(R3)+ 


@(R4)+,a(R3)+  ;DEST DATA=100601 
nh peak cell ;CHECK RESULT 
.+ 


ERROR! INCORRECT DEST DATA AFTER BISB 
a-(R4) ,a-(R3) 
a-<(R4) ,a-(R3) 
@(R4)+,a(R3)+ 


BITB3 
@-(R4) ,a(R3)+ 
+4 


@(R4)+,a-(R3) 
CMPB3 
@(R4)+,a-(R3) 
+4 


WeRASARASLALA AL ALLS RS ESERRRARRSRR RRR RR RR RRR RR RRR RRR RAR RRR RRA RAR SSS! 


CHECK BINARY OPS USING ADDRESS MODE 6 


WEARER EESESLSSSES SSSR RRR R RRR RRR RR RRR RRR RRR RRR RR RRR RR RRR RR RR RASS DD | 


TST26: 


SCOPE 


SEQ 0104 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
CEQKCD.P11 04-OCT-79 08:55 


3952 020714 112737 000026 001202 
3953 020722 015737 001202 177570 
3954 000402 

000000 
020734 000000 
3958 020736 013702 001534 
3959 020742 010205 
3960 020744 005065 
3961 020750 012762 000001 020732 
3962 020756 pooges 020732 020734 


020776 022765 052525 020734 
021004 00140 


021006 104000 
3969 021010 012762 177777 020732 
3970 021016 046562 020734 020732 
3971 021024 036265 020732 020734 


3974 021036 006365 020734 
3975 021042 peeee: 020732 020734 


021056 066265 020732 020734 


021074 006362 020732 
3987 021100 166265 020732 020734 


000377 

010062 020732 

012765 177777 020734 
166500 020734 

104000 

066265 020732 020734 
00636 

036265 020732 020734 


005162 020732 
026265 020732 020734 


MACY11 30A(1052) 
126 


SDATA: 
DDATA: 


1$: 


ADD6: 


SUB6: 


B 9 
04-OCT-79 09:00 PAGE 


83 
CHECK BINARY OPS USING ADDRESS MODE 6 


#26 ,@ASTSTNM LOAD TEST NUMBER 
aeSisin, @4D I SPLAY SPLAY TEST NUMBER 
+6 ;RESERVE TWO LOCATIONS 


0 sRESERVED FOR SOURCE DATA 

0 ;RESERVED FOR DESTINATION DATA 

a4F ACTOR,R2 ;GET RELOCATION FACTOR AND USE AS AN 
R2,R5 ; INDEX X VALUE TO POINT Ms DATA 

oy enata PRESET DESTINATION DAT 

#|, A(2) > THIS ROUTSINE PUT A 1 BIT INTO EVERY 
SDATACD) DDATA(S) OTHER BIT POSITION IN THE DEST- 
SDATA(2) SINATION ADDRESS (52525) 


#52525 DDATA(S) CHECK RESULT 
o” 

ERROR! INCORRECT RESULT 
#-1,SDATA(2) 


DDATA(5) ,SDATA(2) ;SOURCE DATA=125252 
SOATAK2) ,DDATA(S) 
ml + 


ERROR! BIT INST FAILED 
DDATA(5) ;DDATA=125252 
SDATA(2) ,DDATA(5) 
+4 
ERROR! CMP INST FAILED 
SDATA(2) ,DDATA(S) 
ADD6 
ADD6 
-*4 
SDATA(2) 7 SDATA=52524 
SDATA(2) ,DDATA(5) 
SUB6 
+4 
#377 ,RO 
RO, SDATA(2) 


#-1,DDATA(5) 
DDATA(S) ,PO 
+ 


3RO=177777 (MOVB %2R EXTENDS SIGN) 


ante, oh DDATA(S) 
SDA oe (2) 
SDATA(2? 
SDATA(2), -DDATA(5) 


SDATA(2) 
anette” d DDATA(5) 


SEQ 0105 


DEQKC=D PDP 11/70=74MP CPU RECACESER 
CEQKCD.P1? 04-0CT=79 08:55 


021210 026200 
021214 001352 


000004 
021220 112737 


021226 013737 


021234 013702 
02 


021312 
021314 146264 


021424 000000 


020732 


021374 


021374 


021374 
021374 


021376 


000030 
001202 


021374 


021374 


021376 


021376 


021376 
021376 


021376 


001202 
177570 


MACY11 30A(1052) 
T26 


CMP 
BNE 


c 9 
04-OCT-79 09:00 PAGE 84 
CHECK BINARY OPS USING ADDRESS MODE 6 


SDATA(2) ,RO 
1$ 


WME AAAAARARAALAAAALAALALAALALALASALALALA SALSA SARA RASA LARA AALS AS SI 


S*TEST 27 


1$127: 


MOV 
iNOTE: SDATAB(2), 
;AND SDATAB(3), 


BITB6: 


SCOPE 
MOVB 


CHECK BINARY BYTE OPS USING ADDRESS MODE 6 


'WeEARARARARAAAAAALALALASLALLAALALALAASLE SALA ASA A RAR AAAS AAS R SAAS SD SI 


#27, fx con 


;LOAD TEST NUMBER 
SPLAY TEST NUMBE 


TSTNM,@4DISPLAY :DI R 
AND DDATAB(4) REFERENCE” EVEN BYTE OF SOURCE & DEST DATA 


AND DDATAB(5) FEF 
@4F ACTOR ,R2 
R2,R4 
R4,R3 
R3 
R3,R5 


#125252, SDATAB( 2) 
#177125, SDATAB(3) 


SDATAB(2) , DDATAB(4) 


#125125, DDATAB(4) 


SDATAB(2) , SDATAB(3) 


ERENCE ODD BYTE OF SOURCE & DEST DATA 
eT |e VALUE 

7R2 FOR SOURCE EVEN BYTE INDEX, R4& FOR 
DEST ODD BYTE, R3 FOR SOURCE EVEN 

TAND R5 FOR DEST ODD BYTE 

SET CARRY 

SOURCE DATA = 052652 


DEST DATA = 177777 


tg Ln 
.+ 


ERROR MOV,BIS,BIT;BIC DO NOT AFFECT °C° 
2” incite: 
+ 


SDATAB(3) ,DDATAB( 
a Satie -DDATAB( 
+ 


PETA Sr AORTA 


5) 
5) 


4) 


RESERVE TWO WORDS 
RESERVED FOR SOURCE DATA 
RESERVED FOR DEST DATA 


MADARA AASALASASA£A£L£A £2 2R LARA ALASALLASELEASARA ALS SA RAR ARRAS ERR ASS SS DI 


CHECK BINARY WORD OPS USING ADDRESS 


SRTEST 30 MODE 7 
R2=ADDRESS OF SOURCE DATA, AND R3= ADDRESS OF DEST DATA 


-* 


—MmASLAAAASAAAALSLALSLALASASLASSLASLSLARARERA SALA SARSARE ARRAS ARRAS ARSED OD 


18130: 


SBIN7: 
DBIN7: 


SCOPE 


#30 ,Q4STSTNM = LOAD TEST NUMBER 
a4$TSTNM, aaDI SPLAY DISPLAY TEST NUMBER 

0 ;CONTAINS ADDRESS OF SOURCE DATA 
0 ; CONTAINS ADDRESS VY Binds DATA 

0 CONTAINS SOURCE DAT 

0 [CONTAINS DEST BATA. 


SEQ 0106 


D9 
DEQKC=D PDP 11/70-74MP CPU EXERCISER MACY11 gw hig t 04-OCT-79 09:00 PAGE 


85 

CEQKCD.P11 04-OCT-79 08:55 T30 BINARY WORD OPS USING ADDRESS MODE 7 SEQ 0107 
4064 021426 010700 UB7: MOV PC,RO 

6065 021430 024040 CMP -(RO) ,-(RO) 

4066 021432 010002 MOV ROR 

4067 021434 026242 CMP =(R2) ,=(R2) 

4068 021436 010012 MOV RO, (R2) 

4069 021440 010203 MOV R2,R3 

4070 021442 024043 CMP =(RO) ,=(R3) 

<7) 621444 010013 MOV RO, (R3) 

4073 021446 000261 SEC 

4074 021450 012777 100000 177740 MOV #100000,@SBIN7 ;SOURCE DATA = 100000 
4075 021456 017777 177734 177734 MOV @SBIN7,aDBIN7 “DEST DATA = 100000 
4076 021464 103001 BCC MOV? 

4077 021466 100401 BMI +6 

4078 021470 104000 MOV7: HLT 

4079 021472 006377 177722 ASL @DBIN7 :DEST DATA = 000000 
4080 021475 102001 BVC +6 

4081 021500 001401 BEQ “+6 

4082 021502 104000 HLT 

4084 021504 027777 177706 177706 CMP @SBIN7,aDBIN7 _; (R2)=100000, (R3) =000000 
4085 021512 103402 BCS CMP7 

4086 021514 102401 BVS CMP7 

4087 021516 100401 BM] +4 

4088 021520 104000 CMP7?: HLT 

4090 021522 167777 177670 177670 SUB @SBIN7,aDBIN7 7 (R2)=100000, (R3)=100000 
4091 021530 103003 BCC SUB7 

4092 021532 102002 BVC SUB7 

4093 021534 001401 BEQ SUB7 

409% 021536 100401 BMI +6 

4095 021540 104000 SUB7: HLT 

4097 021542 006277 177650 ASR @SBIN7  (R2)=140000 

4098 021546 067777 177644 177644 ADD @SBIN7,aDBIN7 : (R2)=140000, (R3)=040000 
4099 021554 103003 BCC ADD? 

4100 021556 102002 BVC ADD? 

4101 021560 001401 BEQ ADD7 

4102 021562 100001 BPL +h 

4105 021564 104000 ADD7: HLT 

4105 021566 047777 177624 177624 BIC @SBIN7,@DBIN7 _; (R2)=140000, (R3)=900000 
4106 021574 001401 BEQ +6 

4107 021576 104000 HLT 

4109 021600 057777 177612 177612 BIS @SBIN7,aDBIN7 : (R2)=140000, (R3)=140000 
4110 021606 100401 BMI +6 

411) 021610 104000 HLT 

4113 021612 027777 177600 177600 CMP @SBIN7, aDBIN7 

4114 021620 001401 BEQ me 

4115 021622 104000 HLT 

4116 MERA BREBRSBBAAASALAASLASLASLZALLAELE ESE SEES SESE RRR AE RRR ARRAS ARERR RRS ES SE 
4117 se TEST 31 SOME MISCELLANEOUS OPERATIONS INVOLVING THE PC 
4118 te NOTE: NONE OF THESE OPERATIONS SHOULD AFFECT THE PC 
4119 LL EEREEEEEERERA RE RERE ERE R AREER ERE REKERT RARER ERE 


re 
ERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 


DEQKC=D PDP 11/70-74MP CPU EX 84 

CEQKCD.P11 04-OCT-79 08:55 131 SOME MISCELLANEOUS OPERATIONS INVOLVING THE PC SEQ 0108 
4120 021624 000004 TST31: SCOPE 

4121 021626 112737 000031 001202 MOVB #31, aa$TSTNM LOAD TEST NUMBER 

4122 021634 013737 001202 177570 MOV aa$TSTNM, aD ISPLAY DISPLAY TEST NUMBER 
4123 021642 005000 CLR RO 

4124 021644 005067 000072 CLR 1$ 

4125 021650 010707 MOV PC ,PC 

4126 021652 120707 CMPB PC ,PC 

4127 021654 030707 BIT PC,PC 

4128 021656 ADD RO,PC 

4129 021660 105707 TSTB 

4130 021662 005507 ADC PC 

4131 021664 021007 C (RO) .PC 

4132 021666 131007 BITB = (RO), PC 

4133 021670 062707 ADD #0,PC 

4134 021674 023707 601534 CMP a4 ACTOR PC 

4135 021700 133707 001534 BITB  a#FACTOR.PC 

4136 021704 000240 NOP 

4137 ;THE NEXT TWO INSTRUCTION CAUSE THE PROGRAM TO JUMP TO THE UNRELOCATED 
4138 [CODE AND TO RETURN ON THE FOLLOWING INST (IF THE CODE IS RELOCATED) 
4139 021706 163707 001534 SUB a#F ACTOR PC ; JUMPS TO UNRELOCATED CODE 

4140 021712 063707 001534 ADD a#F ACTOR.PC = RE TURNS 

4141 021716 000240 NOP 

4142 021720 024607 CMP -(SP) PC 

4143 021722 132607 BITB (SP) +,PC 

4144 021724 026707 000012 CMP 1$,PC 

4145 021730 166707 SUB 1$,PC 

4146 021734 046707 000002 BIC 1$,PC 

4147 021740 000401 BR +4 ;BRANCH OVER 1$ 

4148 021742 000000 1$: 0 

4149 021744 000004 RELE2: SCOPE 

4150 021746 010702 MOV PC,R2 

4151 021750 062702 000012 ADD #12,R2 

4152 021754 012707 045764 MOV #RELOC ,PC :GO RELOCATE PROGRAM CODE 

4153 021760 000000 REL22: .WORD 0 

alee 32222222222222 LAST ADDRESS OF CODE TO BE RELOCATED 22222222222 
4156 LL RARER ERE RERRKEEERERAEREERERERREEARRAERERERR EEE 
4157 Z*TEST 32 CHECK BINARY BYTE OPS USING ADDRESS MODE 0 

4158 LTA EEEREREEAEEEERERAREERAERAEEEREREERERR ERE EE 
4159 021762 012767 000001 157536 MOV #1, STIMES 7:D0 1 ITERATION 

4160 021770 000004 TST32: SCOPE 

4161 021772 112737 000032 001202 MOVB #32,a4$TSTNM LOAD TEST NUMBER 

4162 022000 013737 001202 177570 MOV a#$TSTNM, a¥D I SPLAY 2 DISPLAY TEST NUMBER 
4164 SBITL START OF SECTION 3 

4165 ° ,3353353333333 FIRST ADDRESS TO BE RELOCATED 333333333 

4166 022006 010700 EL3: PC RO GET PC 

4167 022010 005746 Ter (RO) :RO CONTAINS THE ADDRESS OF REL3 
168 022012 010037 001540 MOV RO, a#FRSTAD SAVE 

4169 022016 010700 _ MOV PC-RO :GET CURRENT PC 

4170 022020 162700 022020 SUB #. RO [SUBTRACT RELOCATION FACTOR 
4171 022024 010037 001534 MOV RO; a#FACTOR [SAVE RELOCATION FACTOR 

4172 022030 010737 001212 MOV PC .aWSLPERR :SET LOCP ADDRESS 


007212 ADD #30 ,AASLPERR ADJUST 
001210 MOV @4$LPERR , 2#SLPADR 


022042 2 
4175 022050 106737 001530 TSTB @ANE KEC ;BR IF TEST CODE TO BE EXECUTED 
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000167 002314 RELE3 
4178 022062 012703 125252 MOV #125252,R3 
4179 022066 010304 MOV R3,R4 :R3=R4=125252 
4180 022070 140304 BICR = RB. RG +R3=125252,R4=125000 
4181 022072 022704 125000 CMP #125000.R4 “CHECK RESULT 
4182 022076 001401 BEQ +4 
4185 022100 104000 HLT 
4185 022102 005004 CLR RG :R3=125252,R4=0 
4186 022104 150304 BISB —-R3, RG +R3=125252.R4=000252 
4187 022106 022704 000252 CMP #252,R4 =CHECK RESULT 
4188 022112 001401 BEQ +4 
4189 022114 HLT 
4191 022116 1106404 ; MOVB R4,RS :R4=177652 
4192 022120 022704 177652 CMP #177652,R4 i CHECK RESULT 
41$3 022124 001401 BEQ +6 
4194 022126 104000 HLT 
4196 022130 132704 177525 BITR = #177525.R4 
4197 134 001401 BEQ +4 
4198 022136 104000 HLT 
4200 022140 105104 COMB RG 2R4=177525 
4201 022142 110404 MOVB —-R4 RG *R4=000125 
4202 022144 022704 000125 CMP #125,R4 “CHECK RESULT 
4203 022150 001401 BEQ +6 
4204 022152 104000 HLT 
4206 022154 150304 BISB ——R3, RS +R3=125252,R4=000377 
4207 022156 105204 INCB RG 
4208 022160 001401 BEQ +4 
4209 022162 104000 HLT 
4210 SLO AAAAAAAAAREAAAEKARAKRAAEARERAEAERAERERHRARAAERKERERARRERRAREREKER EES 
4211 i*TEST 33 CHECK BINARY BYTE OPS USING ADDRESS MODE 7 
4212 DL RT TT RRR EERE REE ERE EEE EERE ERR et 
4213 022164 000004 1S133: SCOPE 
4214 022166 112737 000033 001202 MOVB #33, a4STSTNM ;LOAD TEST NUMBER 
4215 022174 013737 001202 177570 MOV aaSTSTNM, a@A4DISPLAY :;DISPLAY TEST NUMBER 
4216 022202 000406 BR BINB7 :RESERVE- SPACE FOR ADDRESSES & DATA 
4217 022204 000000 SBINB7: .WORD 0 ; CONTAINS ADDRESS OF SOURCE EVEN BYTE 
4218 022206 000000 ~WORD 0 > CONTAINS ADDRESS OF SOURCE ODD BYTE 
4219 022210 .- WORD 0 ; CONTAINS ADDRESS OF DEST EVEN BYTE 
4220 022212 - WORD 0 ; CONTAINS ADDRESS OF DEST ODD BYTE 
4221 022214 0000090 DBINB7: :WORD 0 SCONTAINS SOURCE DATA 
4202 022216 000000 "wORD 0 =CONTAINS DEST DATA 
4224 022220 010700 BINB7: MOV PC RO 
4225 022222 024040 CMP -(RO) ,-(RO) ;RO = ADDRESS OF DEST DATA 
4226 022224 9010060 177772 MOV RO, -6(RO) LOAD ADDRES OF DEST EVEN BYTE DATA 
4227 022230 010060 177774 MOV RO. -4(RO) 
4228 022234 005260 177774 INC -4 (RQ) :LGAD ADDRESS OF DEST ODD BYTE DATA 
4229 022240 005740 TST -(RO) ;RO=ADDRESS GF SOURCE DATA 
4230 022242 010060 177770 MOV RO,-10(RO) ;LOAD ADDRESS OF SOURCE EVEN BYTE DATA 
022246 177772 RO, -6(RO) 
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ret. 022252 005260 177772 INC =6(RO) LOAD ADDRESS OF SOURCE ODD BYTE DATA 
4234 022256 005002 CLR Re SET INDEX REGISTERS 
4235 022260 012703 000002 MOV #2 ,R3 ;@SB1NB7(2) ;@SBINB7(3) REFERENCE EVEN & 
423% 022264 012704 177774 MOV A=-4 RS ODD BYTE SOURCE DATA; @DB1NB7(4) ; aDBINB7(5) 
este 022270 012705 177776 MOV M=2,R5 ;REFERENCE DEST EVEN® ODD BYTE DATA 
4239 
4240 022274 005020 CLR (RO)+ PRESET SOURCE DATA 
4241 022276 005010 CLR (RO) PRESET DEST DATA 
4242 022300 013746 001534 MOV @AFACTOR,=(SP) ;GET RELOCATION FACTOR 
4243 022304 061602 ADD (SP) ,R2 AND ADD TO INDEX VALUES 
4244 022306 061603 AvD (SP) ,R3 
4245 022310 061604 ADD (SP) ,R4 
sey 022312 062605 ADD (SP)+,R5 
4248 022314 112773 177777 022204 MOVB #-1,9SBINB7(3) ;SRC DATA = 177400 
4249 022322 132772 000377 022204 BITB #377, @SBINB7(2) ;CHECK THAT EVEN BYTE WAS NOT AFFECTED 
4250 022330 001401 BEQ : BY MOVB INSTRUCTION 
os23 022332 104000 HLT 
4253 022334 157374 022204 022214 BISB age Ath @DBINB7(4) 
4254 022342 105274 022214 INCB @DB INB7( CHECK THAT BIS SET ALL BITS 
4255 022346 001401 BEQ +4 
$$2$ 022350 104000 HLT 
4258 022352 105375 022214 DECB @DB1NB7(5) DEST DATA = 177400 
4259 022356 005274 022214 INC @DBINB7(4) DEST DATA = 177401 
4260 022362 127375 02220% 022214 CMPB @SB INB7(3) ,aDBINB7(5) 
4261 022370 001401 BEQ +4 
m4 | 022372 104000 HLT 
4264 022374 147375 022204 027214 BICB @5B 1NB7(3) ,aDBINB7(5) 
4265 022402 901401 BEQ +4 
oss 022404 104000 HLT 
4268 022406 105073 022204 CLRB @SB1NB7 (3) SRC DATA = 000000 
4269 ; THIS ROUTINE SETS ALL BITS IN THE SOURCE ODD BYTE BY BISING A BIT FROM 
4270 : 3 THE Rte! EVEN BYTE INTO THE SOURCE ODD BYTE 
4271 022412 157473 022214 022204 BIS? BISB age hit @SB 1 NB? (3) 
4272 022420 106174 022214 ROLE @DB1NB7(4 
4273 022424 103372 BCC BIS7 
4274 022426 022772 177400 022204 CMP #177400, aSBINB7(2) CHECK RESULT 
4275 022434 001401 BEQ +4 
ose 022436 104000 HLT 
278 022440 000372 022204 SWAB @SB1NB7(2) SRC DATA = 000377 
rte 022444 112775 000200 022214 MOVB #200, @DBINB7(5) ;DEST DATA = 100000 
4281 022452 147572 022214 022204 BIC7?: BICB ane 1? (2) @SBINB7(2) 
4282 022460 106075 022214 RORB @DB 1NB7(5) 
4283 022464 103372 x BCC BIC7 
4284 022466 005772 022204 TST @SB1NB7(2) 
4285 022472 001401 BEQ +4 


4286 022474 104000 HLT 
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022476 


022532 
022540 


022656 
022660 
022664 
022672 


022700 
022702 


04-0( T= 
012702 
0107 


013737 


000001 


022644 
001534 
000004 


177775 
177773 


000002 
000017 


000700 


000034 


000004 
000004 
000010 


000062 


000004 
000010 


001202 
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CHECK BINARY BYTE OPS USING ADDRESS MODE 7 SEQ 0111 
OAERR: MOV #1,Re LOAD R2 WITH ODD # 

MOV PC ,R3 

BR .*4 RESERVE SPACE FOR A WORD 

«WORD 0 ;WILL CONTAIN AN ODD ADDRESS 

TST (R3)+ STEP R3 TO POINT TO WORD ABOVE 

MOV R3,(R3) 


;AND MAKE ODD 
MOV #1$,a#ERRVEC ;SET ODD ADDRESS & RESERVED INSTRUCTION 
ADD @a4F ACTOR ,@MERRVEC 


~ MOV @AERRVEC , ARE SVEC :TO TRAP TO 1$ BELOW 

SCC :SET ALL CC'S 

SUB R2, (R2) 

HLT 

ADD R2,(R2)+ 

HLT 

ASI =(R2) 

HLT 

MFPD (R2) 

HLT 

CLRF (RZ) 

HLT 

BIC (R2)+,R2 

HLT 

SUB =(R2),R2 

HLT 

BISB a=-(R2),R2 

HLT 

ADCB a(R2)+ 

HLT 

SUB @(R3)+,R2 

HLT 

TST a(R3)+ 

HLT 

MF PD @(R3)+ 

HLT 

CLRD = a= (R3) 

HLT 

BITB = a. #1, R2 

HLT 

NEGB = a. 

HLT 

BR 2$ 
1$: ADD #2, (SP) sADJUST RETURN PC 

BIS #17,2(SP) :SET CONDITION CODES ON RETURN 
2$: MOV ASUPSTK, SP :RESET STACK PTR 


MOV MERPRT ,@AMERRVEC ;RESET TIME OUT VECTOR 

MOV #RE SERR , @ARESVEC 
PLEA RRR AER REN REAR ERROR ER EERE RRR eee 
S*TEST 34 CHECK JUMP INSTRUCTIONS 
PERRET EERE A REE ER ERE REE Eee 
TST34: SCOPE 

MOVB #34 ,a4$TSTNM 7LOAD TEST NUMBER 
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022710 


022746 
022750 


023054 
023056 
02 


013737 

01070 

062700 
77 


010703 
000401 
000 


000 
005723 
010313 
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001202 
000012 


000022 


177570 
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@A$TSTNM, aADISPLAY 
PC,RO 


JMP1: 


JMP3: 


. 
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#12,RO 


~(R4) 
R2 


e 


+4 
PC,R3 
+4 


0 
(R3)+ 
R3,(R3) 


2 
(R4)+,(R4)+ 
(R4)+ 


JMP4 
(RO) +, (RO)+ 
0,R4 


7 iDISPLAY TEST NUMBER 
;SET ADDRESS FOR JMP INST 
. <f"s 


7 JMP INST JUMPS HERE 


ERROR! INCORRECT CC°S AFTER JMP 
SET INDICATOR 


SRESERVE WORD FOR JMP ADDRESS 
; CONTAINS ADDRESS FOR JMP INST 


;(R3) IS JMP ADDRESS 

; JUMP TO ADDRESS CONTAINED IN R3 
; COMPLEMENT INDICATOR 

CHECK INDICATOR 


CHECK AUTO=INC R3 


;SET INDICATOR 
; SET 


UP JMP REGISTER 


:3 
7SET UP CHECK REGISTER 
; COMPLEMENT INDICATOR 


7R4=JMP ADDRESS 
;USE R4 AS ADDRESS 
CHECK INDICATOR 


CHECK AUTO=DEC R4 


;RESERVE WORD FOR JMP ADDRESS 
; CONTAINS JUMP ADDRESS 


SEQ 0112 see 
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02 
023140 
023142 


023272 
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063767 
0004 


55 
000016 


177770 


023160 
001534 


000000 


4 
023254 


001534 


023236 


000020 
000012 


001202 
177570 
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2$: 


4$: 


JMP7: 


SL RARER EERE REE EERE EERE EERE RARER EERE EEE REE 


s*TEST 35 


SL AAA RARER RARER ARR AAREKERARAEARARAEEAERERRERAERRERRAERRER RARE 


TST35: 


JSRi: 


1$: 


2$: 
3$: 


SCOPE 
VB 


me 
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#16, (R3)+ 
0 


#1$,7$ 
@4FACTOR,7$ 
2$ 

R2 

3$ 

a7$ 

0 
R2 
. +4 


;LOAD CHECK REGISTER 


; JUMP TO 2$ VIA 1$ ABOVE 
SCHECK INDICATOR 


CHECK AUTO=DEC R3 


;COMPLEMENT INDICATOR 


SET UP JMP ADDRESS 
“ADD RELOCATION is a 
:GO TO JMP_ a7$ INST 


; COMPLEMENT INDICATOR 
:GO TO CHECK ROUTINE 
;JMP_TO 1$ ABOVE VIA 7$ 
CONTAINS JMP ADDRESS 

i: CHECK INDICATOR 


CHECK JSR INSTRUCTIONS 


#35 ,QASTSTNM ;LOAD TEST NUMBER 

@4STSTNM, @4D I SPLAY 7zDISPLAY TEST NUMBER 

@4FACTOR,RS ;GET RELOCATION FACTOR 

4#3$ ,R2 FORM DEST ADRS 

RS ,Re ADD “ic on FACTOR 
PRESET CC'S 

R5,(R2) :G0 TO 3$ WIA Re 

R2 ;CHECK INDICATOR 

4$ 3R2_SHOULD=0 

+ atc ;CHECK THAT RTS RS RESTORED R5 

JSR3 :GO_ TO NEXT TEST 

R5 RETURN FROM SUBROUTINE 

re ;CHECK THAT JSR DID NOT 

3 sAFFECT CC'S 

R2 CLEAR INDICATOR 

#1$,R4 [GET UNRELOCATED RETURN ADDRESS 


(SP) ,R4 


SADD RELOCATION FACTOR (OLD R5) 


SEQ 0113 
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023274 020405 CMP R4,R5 CHECK THAT OLD R5 WAS PLACED ON THE 
001765 BEQ 2$ ;STACK,® THAT NEW R5 CONTAINS RETURN PC 
104000 HLT ERROR! ABOVE 


hs JSR INSTRUCTION ADDRESS MODE 3 
013704 001534 SR3: MOV @AFACTOR RS ;GET RELOCATION FACTOR 
005000 RO 


SET INDICATOR 
012705 023330 
060405 SET UP JSR DEFERRED ADRS 
010502 


012715 023346 
060415 ;(R5)=DEST ADRS 

SRESERVE WORD FOR ADDRESS 
0 ; CONTAINS DEST ADRS FOR JSR 
R4,a(R5)+ 7JSR TO 5$ VIA 1$ ABOVE 
re CHECK INDICATOR 


JSR4 
RO ; COMPLEMENT iNDICATOR 
“ RETURN FROM SUBROUTINE 
023334 : #3$_,R3 ;GET UNRELOCATED RETURN ADDRESS 
(SP) R3 ;ADD RELOCATION FACTOR (OLD R4) 


4.R3 


(Ro) 
R2,R5 ; CHECK AUTO=-INC RS 
4$ :GO TO RTS 

6$: ERROR ABOVE 


:CHECK JSR INST ADDRESS MODE 4 
001534 JSR4: MOV aAF ACTOR ,R4 
R4.R5 
PC.R3 
2$ 
4$ 
(R3)+,(R3)+ 
R4,-(R3) :G0 TO 2$ 


:GO TO NEXT TEST 


$ 
023412 GET UNRELOCATED RETURN ADDRESS 
ADD RELOCATION FACTOR (OLD R4) 
CHECK THAT CALCULATED RETURN 
PC = NEW R4 


5$: 
; TEST JSR INST ADDRESS MODE 6 
JSR6: BR 2$ 


000405 
010700 








._? 
DEQKC=D PDP 11/70-74MP CPU EXERCISER MACY11 30A(1052) 04-OCT-79 09:00 PAGE 93 


CEQKCD.P11 04-OCT-79 08:55 T35 CHECK JSR INSTRUCTIONS SEQ 0115 
4512 023454 004767 177770 JSR PC,1$ 
4513 023460 100407 BMI JSR7 :GO TO NEXT TEST 
4514 023462 104000 HLT TERROR ON CC'S 
4515 023464 022020 3$: CMP (RO) +, (RO)+ 
4516 023466 020016 CMP RO, (SP) :CHECK THAT RETURN ADDRESS IS ON THE 
4517 023470 001401 BEQ +6 * STACK 
4518 023472 104000 HLT 
4519 023474 000270 SEN :SET N 
4920 023476 000207 RTS PC 
4522 TEST JSR INST ADDRESS MODE 7 
4523 023500 013746 001534 SR7: MOV avr whe -(SP) ;GET RELOCATION FACTOR 
4524 023504 062716 023524 ADD #1, (SP) [FORM ADDRESS OF 1$ BELOW 
4525 023510 000277 SCC “SET ALL CC°S 
4526 023512 004076 000000 JSR RO,a(SP) ‘JSR TO 1$ 
4527 023516 003003 BGT 3$ 
4528 023520 102002 BVC 3$ 
4529 023522 000402 BR 4$ 
4531 023524 000200 1$: RTS RO RETURN 
4532 023526 104000 3$: HLT sERROR!! INCORRECT CC'S 
4533 023530 48: 
4534 MeASBBAASRQAAALAALA£2¢A2 £2 SASS SESSSESESASES EASA E RAS ARASASRAS RRA RA SSA SARS SAS SE SF 
4535 S*TEST 36 CHECK IOT TRAP (AND ROLB/ASLB) 
4536 te THIS TEST CHECKS THAT THE PSW IS CORRECT AFTER THE IOT AND THAT THE 
4537 te "NEW‘PSW (FROM IOTVEC+2) IS CORRECT 
4538 TSE ICICI ICICI OUI SIOOIOITIIOI IOI CIOITITIOIIOIDIDIIOIOIIEE I fot 
4539 023530 000004 15136: SCOPE 
4540 023532 112737 000036 001202 MOVB #36,a#$TSTNM :LOAD TEST NUMBER 
4541 023540 013737 001202 177570 MOV a¥$TSTNM, aD I SPLAY :DISPLAY TEST NUMBER 
4542 023546 012705 000022 IOTTST: MOV AIOTVEC+2,R5 
4543 023552 005000 CLR RO 
4544 023554 052740 000200 BIS APR4,-(RO) :SET PRIORITY LEVEL 4 IN PSW 
4545 023560 011015 MOV (RO), (R5) “SET IOTVEC#2 = PSW 
4546 023562 011504 MOV (R5) RG TSAVE IN R4 
4547 023564 010746 MOV PC,-(SP) 
4548 023566 062716 000036 ADD #1$-., (SP) 
4549 023572 012645 MOV (SP) +,=(R5) =LOAD IOT TRAP VECTOR 
4550 023574 042710 000357 BIC #PR7+17, (RO) 
4551 023600 052710 000244 BIS #PRS5+4, (RO) :PSW=X_XXX X00 101 1X1 000 
4552 023604 012003 MOV (RO) +,R3 “R3 = PSW ABOV 
4553 023606 010340 MOV R3,-(RO) SRESTORE PSwW (MOV CHANGED IT) 
4554 023610 000004 10T 
4555 023612 012737 054370 000020 10$: MOV #SSCOPE , a#IOTVEC ;RESTORE IOT VECTOR 
4556 023620 104000 HLT ERROR! 107 FAILED TO TRAP 
4997 023622 000457 BR TST37 ::GO TO NEXT TEST 
4559 023624 012002 1$: MOV (RO) +,R2 :GET PSW AFTER IOT TRAP 
4560 [NOTE: RO=0 
4561 023626 012725 054370 MOV #SSCOPE ,(R5)+ TRESTORE IOTVEC 
4562 023632 012715 000200 MOV APRG, (RS) SAND IOTVEC+2 
4563 023636 010746 MOV PC,-(SP) “FORM PC OF 10% ABOVE 
4564 023640 062716 177752 ADD #10$-., (SP) 
4565 023644 022626 CMP (SP) +, (SP)+ :CHECK RETURN PC ON STACK 
4566 023646 001036 BNE 


6 99$ 
4567 023650 022603 CMP (SP) +,R3 CHECK SAVED PSis 
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DEQK 
CEQKCD.P11 04-OQCT-79 08:55 136 CHECK IOT TRAP (AND ROLB/ASLB) SEQ 0116 
4568 023652 001034 BNE 99$ 
4569 023654 032703 140000 BIT #UM ,R3 ;BRANCH TO 3$ IF IN USER MODE 
4570 023660 100413 BMI 3$ 
4571 023662 001003 BNE 2s BRANCH TO 2$ IF IN SUPER MODE 
4572 023664 020204 CMP R2,R4 ; CHECK PSW AFTER IOT 
4573 02 001026 BNE 99$ 
“2he 023670 3 4$ 
4576 023672 042704 030000 2$: BIC #PUM RS ;CLEAR PREV MODE BITS 
4577 023676 052704 010000 BIS A#PSM,R4 SET PREV SUPER MODE 
4578 023702 020204 CMP R2,R4 CHECK PSW AFTER IOT 
4579 023704 001017 BNE 99$ 
teas 023706 BR 4$ 
4582 023710 052704 030000 3$: BIS #PUM,RS SET PREV USER MODE 
4583 023714 020204 CMP R2,R4 CHECK PSW AFTER IOT 
tens 023716 001012 BNE 99% 
586 023720 005002 4$: CLR R2 
4587 023722 000261 SEC 
4588 023724 106100 ROLB RO ;ROTATE RO 
rt +4 023726 102376 BVC “72 ;UNTIL V SETS (RO=200) 
4591 023730 106300 ASLB RO SHIFT SHOULD SET CARRY 
4592 023732 103004 BCC 99$ 
4593 3734 102003 BVC 99$ 
4594 023736 001002 E 99$ 
4595 023740 005700 TST RO 
4596 023742 001401 BEQ +4 
4597 023744 104000 99$: HLT sERROR: ROL/ASL FAILED TO rh. 
4598 CC'S PROPERLY (IF R2=0) OR 
4599 ; CORRECT PSwW AFTER IOT Ur RON NOT 0) 
023746 042704 000340 BIC #PR7 ,R4 
4601 023752 010437 177776 MOV R4,a4PSW RESTORE PSW 
4602 023756 012706 000700 MOV #SUPSTK, SP RESTORE STACK PTR 
4603 J LR ERR EERE ERE EKER EKER EEE ERE OEE EREEEKER EE 
i*TEST 37 CHECK EMT TRAP SEQUENCE 
4605 DLR RRR RE EERE EERE REE EERE EERE EERE EERE EERE ERK 
4606 023762 000004 TST37: SCOPE 
4607 023764 112737 000037 001202 MOVB #37 ,AASTSTNM LOAD TEST NUMBER 
4608 023772 013737 001202 177570 MOV @A$TSTNM, a#DISPLAY $ DISPLAY TEST NUMBER 
4609 -EQUIV IOT,HLT REDEFINE HLT CALL 
4610 024000 012737 054622 000020 MOV #SERROR , AA IOTVEC 7SETUP VECTOR 
4611 024 012737 000340 000022 MOV #PR7 ,AAIOTVEC+2 
4612 024014 005000 CLR RO 
4613 024016 010746 MOV PC,~(SP) 
4614 024020 062716 000030 ADD MEMT1-., (SP) 
4615 024024 012637 000030 MOV (SP) +, @MEMTVEC 
4616 024030 000262 SEV SET V 
4617 024032 013737 177776 000032 MOV @APSW,QHEMTVEC +2 RETAIN CURRENT PSW ON TRAP 
4618 024040 000265 +SEZ!SEC 
4619 024042 104000 EMT ; TRAP TO EMT1 
4620 024044 001433 BEQ EMT1C [GO TO EMT1C 
4621 024046 000004 HLT SERROR! INCORRECT CC'S WERE SET ON RETURN 
4622 024050 102027 EMT1:  BVC EMT1B :"V" SHOULD*VE SET ON EMT TRAP 


4623 924052 105100 COMB RO >R0=000377,CC'S=1001 
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024054 105500 
106000 


024056 
4626 02 102023 


054622 000030 
000340 000032 
054370 000020 


0 
024172 000022 


024176 

000040 001202 
001202 
000340 


000340 000016 


000056 
000034 


177776 000036 


062144 000034 


024274 
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EMT18: 
EMT1C: 


EMT1D: 


ADCB 
RORB 
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CHECK EMT TRAP SEQUENCE SEQ 0117 | 
RO :RO=000000,CC*S=0101 
RO :R0=000200,CC *S=1010 
EMTIB 
EMT1B 
0 :RO=000200,(C*S=1010 
EMT1B 
EMT1B 
:CLEAR ‘V° 
SAND SE acs 
RO ;RO=000177,CC'S=0011 
EMT1B 
EMT1B CLEAR *y" 
RO :RO= 000200,CC*S=1011 
EMT1B 
EMT1B 
EMT1B CLEAR *Y* 
os 7SHIFT RO UNTIL 'V' CLEARS 
+4 
ZERROR! 
sEXIT WITH RO=000377 
0 :RO=000000 
EMT1D 
EMT 1D 
RO 
+4 
ASERROR , AAEMT VEC RESTORE EMT TO ERROR 
#PR7, HEMTVEC+2 ;SET PRIORITY 7 ON ERROR 
#SSCOPE alate RESTORE IOT VECTOR 
ERROR ,HLT ZREDEF INE HLT CALL 


CRRA EKER EK KEE EERE KEE EERE ERE EER EKER EERE 


s*TEST 40 


DL ERR REE REE REE EERE EERE EERE ER EH 


TST40: 


SCOPE 


CHECK TRAP INSTRUCTION TRAP SEQUENCE 

#40 ,QASTSTNM 

ars iSTNM @4D i SPLAY 
aaPsw 


#PR7, 
#PR7 ,AATBITVEC+2 
PC,-(SP) 


;LOAD TEST NUMBER 
7:DISPLAY TEST NUMBER 
LOCK OUT LINE CLOCK 


ATRAP I~. , (SP P) 
(SP) +, @#TRAPVEC “t « 
OAPSW, AATRAPVEC+2 [RETAIN CURRENT PSwW ON TRAP 
7SET CARRY 
PC,RO 
sS€T Z BIT 

+s ; TRAP TO TRAP1 
~ 
MSTRAP , aA TRAPVEC ;RESTORE TRAP VECTOR 
+12 
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024276 
0 


024350 
024354 
024360 
024364 
024372 
024376 
024400 


024412 


024414 
024422 
024424 
024432 


024440 


0 
024510 
024514 


024540 


04-0 T- 


012767 


000004 
112737 
013737 


013767 
005037 
004737 
052737 
019746 


062144 


062144 
000004 


062144 


001540 
024452 
001534 
001212 
000030 
001212 
001530 
001512 
177776 


177776 
063162 
000340 


000034 


000034 


000034 


000016 


154704 


001202 
177570 
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TRAP1: 


TRAPIC: 


RELE3: 
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CHECK TRAP INSTRUCTION TRAP SEQUENCE 


AMSTRAP , AATRAPVEC RESTORE TRAP VECTOR 
>" 

+12 iN BIT GOT SET ON TRAP 
wsTRAP, @ATRAPVEC” RESTORE. TRAP VECTOR 
#4 ,RO 
RO, ate a eTace LOW BYTE OF RETURN PC ON 
asthe, @ATRAPVEC RESTORE TRAP VECTOR 
=(SP° .=(SP) 
(SP) +, (SP)+ 


RETURN TO INST FOLLOWING TRAP (1$) 
phe get te R2 RESTORE VECTORS 
#PR7,(R 


#STRAP, CR 2) 


#PR7, a#TBITVEC +2 

aaPsw :GO BACK TO PRIORITY 0 
PC,R2 

#12,R2 

#RELOC .PC :GO RELOCATE PROGRAM CODE 


REL33: .WORD 
; 3333333333333 LAST ADDRESS OF CODE TO BE RELOCATED 33333333333 


J FARA AREREREREERAERERERERERERERERRERERERREREREREERKEREREEE 


s*TEST 41 


J FRA AARREATERERRAREERERREERRREAREERERERERREEAREREERERERRERRERRRER EH 


TST41: 


OVF LW: 


CHECK STACK OVERFLOW 


MOV #1,S$TIMES ::D0 1 ITERATION 
MOVB #41, a@4$TSTNM :LOAD TEST NUMBER 
MOV a4STSTNM, aD ISPLAY +;DISPLAY TEST NUMBER 
.SBTTL START OF SECTION 4 

Zhaaaaaacanaas "Peergnness TO BE RELOCATED 644444446 
TST RO) “RO CONTAINS THE ADDRESS OF REL4 
MOV RO avFRSTAD + SAVE 
MOV PC,RO :GET CURRENT PC 
SUB #.,RO + SUBTRACT RELOCATION FACTOR 
MOV RO. a#FACTOR ‘SAVE RELOCATION FACTOR 
MOV PC a#$LPERR ‘SET LOOP ADDRES Ss. 
ADD #30, a#$LPERR § :ADJUST 
MOV @4SLPERR , A#SLPADR 
TsTB @4NEXE :BR IF TEST CODE TO BE EXECUTED 

+ 

JMP RELE4 
MOV arPSwW,7$ :SAVE STATUS IN 7$ BELOW 
CLR aaPSW ‘SET KERNEL MODE 
JSR PC,a@MCLRTBIT  :GO CLEAR ‘T’ BIT IF SEY 
BIS APR? aePSW “SET PRIORITY LEVEL 7 TO BLOCK CLOCK 
MOV PC -(SP) “PUSH CURRENT PC ONTO STACK 


SEQ 0118 


C=-D PDP ie tems Ay 


DE Qk 
CEQKCD.P11 


02 
024572 


924654 


024656 
024664 


024712 
024714 
024724 


024726 


024762 
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062716 
012637 
012737 


012703 
010313 
010306 


EX 
8:55 
15 


ERCISER 


000016 


000234 


020000 


177777 


000004 


apd y 30A(1052) 
START OF SECTION 


4 


3$: . WORD 
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#2$-. , (SP) FORM ADDRESS on 2$ BELOW 
(SP) ,@WERRVEC _ SET ERROR VECTOR 

#340 ,AMERRVEC+2 ;SET PRIORITY LEVEL 7 ON TRAP 
 ethferse is > 7SAVE BPT VECTOR ADRS 


#41$-2$, (SP) ;FORM ADDRESS OF 41$ BELOW 
(SP)+,@#BPTVEC. ;SET BPT TRAP VECTOR TO 41$ 
#340, @ABPTVEC+2 


#376 ,R3 

R3,(R3) ;LOAD 376 INTO ar Gna 376 
R3,SP :SET STACK PTR AT BOUNDARY 

UM ,7$ ;CHECK IF ENTERED TEST IN KERNEL 
1$ :MODE. BRANCH IF NOT IN KERNEL 


7 THE een: 2 pects | mee SHOULD NOT CAUSE AN ey TRAP 


BECAUSE TST IS A NON MODIFYING INST 
(SP), -2(SP) :SO IS COMPARE 
(SP)+,a-(SP) ;BECAUSE OF ADDRESS MODE 5 
@(SP).a(SP)+ SBECAUSE OF ADDRESS MODE 3 
_ a(SP) ;BECAUSE OF ADDRESS MODE 7 


3920000, 20000 ( SP) 
3$ ;BRANCH OVER NON KERNEL MODE TESTS 


NCTE: a TRAP WILL OCCUR IF NOT IN KERNEL MODE!!! 


i$: BI 7$+1 ,a4PSwW+1 RESTORE MODE BITS IN PSW 
MOV #376,SP SET STACK PTR 
MOV -2(SP) ,-(SP) ;SHOULD NOT TRAP 
BIS (SP), (SP) 
ADD (SP), * ls 
CLRB aaPSw+l SET KERNEL MODE 
MOV ASUPSTK , SP RESTORE THE STACK 
BR 6$ sEXIT TEST 
ERROR SERVICE we rh oy 
2s: MOV (SP)+,RO SAVE PC OF INSTRUCTION THAT TRAPPED 
MOV (SP)+,R2 TSAVE PSW 
ot #SUPSTK, SP ;SET STACK PTR 
HL 


ERROR! AN INSTRUCTION THAT WAS NOT 
;SUPPOESED TO TRAP TRAPPED 
RO er PC, R2 CONTAINS PSW 


BR 6$ EXIT TES 
; THE BELOW ght ae ey WILL CAUSE A STACK OVERFLOW 
;STACK PTR IS AT 376 


3$: 


#4$-2$ ,aMERRVEC ;SET ERROR VECTOR TO 4$ 
R3,SP SET STACK PTR AT 376 


#1,R2 

RO 

(SP) SETS BIT 0 IN RO 
R2 ;SHIFT INDICATOR BIT 
+ g SETS BIT 1 IN RO 
oe SETS BIT 2 IN RO 


SETS BIT 3 IN RO 


SEQ 0119 
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025006 
025012 
025014 
025020 


025022 


025224 
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00 
012737 
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000014 
177776 


000042 
001202 
001502 
000010 
025304 
001505 
025342 
001534 
000040 
000212 
000110 
025262 


000014 


001202 
177570 


000122 


001501 


000010 
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START OF SECTION 4 SES 0120 
ASL R2 
JSR PC ,40$ ;SETS BIT 4 IN RO 
ASL R2 
BIS SP ,-2(SP) ;SETS BIT 5 IN RO 
BR 5$ 
PROGRAM WILL TRAP HERE ON OVERFLOW TRAP 
$ BIS R2,RO0 sSet ao Chest bade BIT IN RO 
RTI *RETURN FROM TRAP 
408: BIS #1000,R90 ;SET IND THAT JSR WAS EXECUTED 
RTS PC 
41$: 81s #400,R0 ;SET IND THAT BPT WAS EXECUTED 
= CHECK THAT ABOVE INSRUCTIONS DID TRAP 
5$: MOV #SUPSTK,SP sSET STACK PTR 
CMP #1477, nO EACH INSTRUCTION SET A BIT IN RO 
BEQ .+4 *RO= 1477 
HLT 
EXIT ROUTINE 
MOV MKERSTK,SP SET KERNEL STACK PTR 
MOV 43%, @#BPTVEC [RESTORE BPT VECTOR 
CLR @ABPTVEC +2 
MOV (PC) +,-(SP) PUSH OLD PSW ONTO STACK 
7$: -WORD 0 CONTAINS SAVED PSwW 
MOV PC,-(SP) :PUSH CURRENT PC ONTO STACK 
soe #6, (SP) ADD OFFSET 
MOV #SUPSTK, SP SET STACK PTR 
MOV MERPRT ,AMERRVEC ;RESET TIME OUT VECTOR 
MOV aePSW, AERRVEC+2 
BIS #PR7 ,@HERRVEC +2 
BIC #BITS, @FERRVEC +2 
LR a4#CPUERR 
CLARA RARER AREAEAAEREREREEEEREEERAREREREEAEREREERAEREREEE ERE EE 
*TEST 42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP 
JL RARER REE EEREEREKEEEEERERREEEEREEEREEREEEREEEEREERERKEEREEE 
TST42: SCOPE 
MOVB #42 ,@ASTSTNM LOAD TEST NUMBER 
MOV @4$TSTNM, a4DISPLAY :;DISPLAY TEST NUMBER 
RESTRP: TST @4KB11E :IS THIS A KB11-E OR KB11-EM? 
BEQ 10$ ;BR IF NOT 
MOV #10,5$ 37KB11-E AND KB11-EM USES OPCODE 7, START WITH OSPCODE 10 
106: MOV #5$,R2 :GET ADDRESS OF riots INSTRUCTION TABLE 
TSTB aA4C ISP :IS CISP OPTION PRESENT 
BEQ 8$ ‘BR IF NOT 
MOV #63 ,R2 ‘ADDRESS OF RESERVED INSTRUCTION TABLE WITH CIS 
8$: ADD @4FACTOR,R2 
BITB #40, a40PT.CP+1 ;CHECK IF 11/45 FLOATING POINT IS AVAIL. 
BEQ 9$ “BRAN ANCH IF NOT AVAILABLE 
CLR 51$ ;SET CIS TABLE TERMINATOR AT GROUP 7 
CL 50$ SET TABLE TERMINATOR AT GROUP 7 


9$: MOV A4$ , BARESVEC SET RESERVED INSTRUCTION TRAP 
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CEQKCD.P11 04-OCT-79 08:55 T42 HECK THAT ALL RESERVED INSTRUCTIONS TRAP SEQ 0121 
4848 025232 063737 001534 000010 ADD @#F ACTOR, @ARESVEC 

4849 025240 012203 1$: MOV (R2)+,R3 :GET FIRST RESERVED INSTRUCTION 
4850 025242 001476 BEQ 7$ [0 TERMINATES THE TABLE 

4851 025244 012204 MOV (R2)+,R4 :GET LAST RESERVED INSTRUCTION IN GROUP 
4852 025246 010317 2$: MOV R3, (PC) TEXECUTE RESERVED INSTRUCTION 

4853 025250 000000 3$: .WORD 0 = CONTAINS RESERVED INSTRUCTION 

4854 025252 000240 NOP TERROR! INSTRUCTION IN R3 

4855 025254 000240 NOP :(2$) ABOVE FAILED TO CAUSE A 

4856 025256 104000 HLT [RESERVED INSTRUCTION TRAP 

4857 025260 000405 BR 41$ 

4858 025262 012716 025274 4$: MOV #61$, (SP) :ADJUST RETURN PC 

4859 025266 063716 001534 ADD @#FACTOR, (SP)  :TO RETURN TO 41$ 

4860 025272 000002 RTI ;RETURN TO 41$ 

4861 025274 020304 41$: CMP R3,R4 HAS GROUP OF RESERVED INSTRUCTIONS 

025276 001760 BEQ 1$ [BEEN EXECUTED 

4863 025300 005203 INC R3 ZINCRERENT THIS RESERVED INSTRUCTION 
4864 025302 000761 BR 2s TO NEXT ONE AND EXECUTE 

4865 “TABLE OF 1170 RESERVED INSTRUCTIONS (O TERMINATES THE TABLE) 

4866 025304 000007 S$: 7 :GROUP 1 (GETS A 10 IF KB11-E OR KB11-EM) 
4867 025306 000077 77 - 

4868 025310 000210 210 SGROUP 2 

4869 025312 000227 227 

4870 025314 007000 7000 SGROUP 3 

4871 025316 007777 7777 . 

4872 025320 075040 75040 [GROUP 4 

4873 025322 076777 76777 ; 

4874 025324 106400 106400 :GROUP 5 

4875 025326 106477 106477 : 

4876 025330 106700 106700 *GROUP 6 

4877 025332 107777 107777 ; 

4878 025334 170000 50$: 170000 :GROUP 7 FLOATING POINT 

4879 025336 177777 177777 INSTRUCTIONS 

4880 025340 000000 0 70 TERMINATES THE TABLE 

4882 

4883 : TABLE OF KB11-E/EM WITH CIS RESERVED INSTRUCTIONS (0 TERMINATES THE TABLE) 
4884 025342 000010 6$: 10 :GROUP 1 

4885 025344 000077 77 

4886 025346 000210 210 “ GROUP 2 

4887 025350 000227 227 . 

4888 025352 007000 7000 ‘GROUP 3 

4889 025354 007777 7777 i. 

4890 025356 075040 75040 [GROUP 4A 

4891 025360 076017 76017 cy 

4892 025362 076033 76033 [GROUP 48 

4893 025364 076037 76037 a 


4894 025366 076046 76046 [GROUP 4C 
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CEQKCD.P11 04-0CT-79 08:55 T42 CHECK THAT ALL RESERVED INSTRUCTIONS TRAP SEQ 0122 
4895 025370 076947 76947 ieee 
4896 025372 076100 76100 GROUP 4D 
4897 625374 076127 76127 ae 
4898 025376 076133 76133 ; GROUP 4E 
4899 025400 076137 76137 Faw 
025402 076146 76146 GROUP 4F 
4901 025404 076147 76147 : = 
4902 025406 076160 76160 GROUP 4G 
4903 025410 076167 76167 ae 
4904 0625412 076200 76200 GROUP 4H 
4905 025414 076600 76600 i: 
4906 025416 076602 76602 GROUP 4] 
4907 025420 076777 76777 oo 
4908 025422 106400 106400 GROUP 5 
4909 025424 106477 106477 i 
4910 025426 106700 106790 ; GROUP 6 
4911 025430 107777 107777 : es 
4912 025432 170000 51$: 170000 : GROUP 7 FLOATING POINT 
4913 025434 177777 177777 INSTRUCTIONS 
nt 025436 000000 0 0 TERMINATES THE TABLE 
4916 025440 012737 064216 000010 7$: MOV MRE SERR , @ARESVEC RESTORE RESERVED TRAP 
4917 LL EERE RARER ERERERE REE E REE 
4918 Z*TEST 43 CHECK THAT ALL BITS JN THE PSW CAN BE SET AND CLEARED 
4919 LEAR REE EERE EERE RARER EERE RRR RARE EER EER 
4920 025446 000004 TS743: SCOPE 
4921 025450 112737 000043 001202 MOVB 443 ,a4$STSTNM LOAD TEST NUMBER 
4922 025456 013737 001202 177570 MOV @4STSTNM, 4D I SPLAY 2 DISPLAY TEST NUMBER 
4923 025464 105737 001531 PSWCHK: TSTB aAMMON ; IF MEM MGMT IS ON SKIP THIS TEST 
4924 025470 001070 BNE 4$ 
4925 025472 013767 177776 000140 MOV aFPSw, 3$ SAVE STATUS 
4926 025500 005037 177776 CLR aAPSW ;CLEAR MODE BITS IN PSW 
4927 025504 004737 063162 JSR PC ,@ACLRIBIT :GO CLEAR ‘T’ BIT IF SET 
4928 025510 013746 000016 MOV a#TBITVEC+2,-(SP) 
4929 025514 012704 177776 MOV APSW,RS ;LOAD ADDRESS OF PSW INTO R4 
4930 025520 000250 CLN 
4931 025522 005714 TST (RS) ;CHECK THAT PSW WAS CLEARED 
4932 025524 001401 BEQ +4 
4933 025526 104000 HLT ERROR! PSwW FAILED TO CLEAR 
4934 025530 012700 170357 MOV #1 ot Tle 
4935 025534 005737 001502 TST —* :1S THIS A KB11-E OR KB11-EM PROCESSOR? 
4936 025540 001402 BEQ 10$ [BR IF NOT 
4937 025542 052700 000400 BIS #400,R0 :ALSO TEST osee IF KB11-E 
4938 025546 012702 000001 10$: MOV #1,R2 R TEST 
4939 025552 0302 1$ BIT R2, “RO > CHECK IF BIT CAN BE SET/CLEARED 
4940 025554 001423 BEQ 2$ 
4941 025556 005037 000016 CLR @ATBITVEC+2 
4942 025562 030227 000020 BIT R2,420 CHECK IF TEST WILL SET ‘T* BIT 
4943 025566 14 BEQ 20$ 
4944 025570 012737 000002 000016 MOV He aTBITVEC +2; SET iy — RE TURN 
4945 025576 005014 20$: CLR (R EAR P 
4946 025600 050214 BIS Ro. (RG) SET Re INTO PSwW 
4947 025602 011403 MOV (R&) R3 :GET BIT 
4948 025604 020203 CMP R2,R CHECK THAT BIT WAS SET IN PSw 


4949 025606 001401 BEQ +4 
4950 025610 104000 HLT ERROR! BIT IN R2 FAILED TO SET IN PSw 


DEQKC=D PDP 11/70=74MP C 
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025612 


025732 
025734 
025736 
025740 
025742 


025776 
026000 
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000016 


000006 


177776 
000340 
065162 


000044 
001202 


000377 


177777 
000377 


177776 


001202 
177570 
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CHECK THAT ALL BITS IN THE PSwW CAN BE SET AND CLEARED SEQ 0123 
CLZ :CLEAR 2 BIT 
BIC R2, (RS) =CLEAR BIT IN PSW 
MOV (RS) ,R3 :GET PSwW RESULT 
BEQ 2$ ZBRANCH IF BIC ABOVE CLEARED BIT IN PSw 
HLT sERROR! BIT IN R2 FAILED TO CLEAR IN PSW 
2$: ASL R2 :SHIFT TEST BIT 
BCC 1$ “BRANCH IF ALL BITS NOT TESTED 
CLR (R4) iCLEAR STATUS 
MOV (SP) +, @#TBITVEC+? RESTORE T BIT RETURN 
MOV (PC) +,=(SP) ; PUSH ORIGINAL STATUS ON STACK 
3$: .WORD 0 =CONTAINS ORIGINAL PSW 
MOV PC,=(SP) [SET RETURN PC 
ADD #6, (SP) 
RTI RETURN 
4$: y MOV BFPSW RS [SAVE PSW IN R4 
» MOVB #340,a4PSW :SET PRIORITY LEVEL 7 
JSR PC ,a#CLRIBIT *GO CLEAR 'T' BIT IF SET 
<3 TRARRRBRAASASRASAAASASAELALASASSA SSS ESS SES ESSERE SERS ESR RRR RR RRR RRR SR SS 
P*TEST 44 CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED 
TARR RSBRABASAAAASZASLSALASLASLSASASSES SSS S SER SR SRS ESR RASS SAS ERE RRR ESAS SSS AS SG 
78144: SCOPE 
MOVB #44,a4$TSTNM :LOAD TEST NUMBER 
MOV @4STSTNM, a4DISPLAY *:DISPLAY TEST NUMBER 
CHKSP: mov SP ,R3 :SAVE STACK PTR 
MO #377,SP :SET STACK PTR = -1 
1$: ROR SP “ROTATE 0 BIT THROUGH ALL BIT 
BCS 1$ ‘BIT POSITIONS 
INC SP :SHOULD INCREMENT SP TO 0 
BEQ 2$ 
MOV SP.R2 :SAVE ERROR STACK PTR 
MOV R3,SP *SET STACK PTR FOR TRAP 
HLT * ERROR! 
2$: MOV R3,SP :RESTORE ORIGINAL STACK PIR 
:CHECK BYTE OPERATIONS USING THE STACK 
SPCHK: MOV SP,RO :SAVE STACK PTR 
MOV RO,R3 
CLR -(R3) 
MOVB = #=1,-(SP) (SP) = 377 
ta #377, (R3) =CHECK THAT ONLY EVEN BYTE WAS AFFECTED 
BN 
CMP R3,SP = CHECK AUTO-DEC 
BEG +4 
1$ HLT 
INCB (SP)+ 
TST (R3)+ sCHECK RESULT 
BNE 2$ 
CMP RO, SF sCHECK AUTO=INC 
BEQ +4 
2$ HLT 


COM -(R3) 3(R3)=177777 
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CEQKCD.P11 04-OCT-79 08:55 CHECK THAT ALL BITS IN THE CURRENT STACK PTR CAN BE SET CLEARED SEQ 0124 


144613 -(SP),(R3) 
a77660, (R3) 


3 
026012 SP ,R3 
5011 026014 001401 BEQ +4 




































177400 CHECK RESULT 





| 
5012 026016 104000 38: HLT 
5014 026020 132627 000377 BITB (SP) +4377 
5015 026024 001002 BNE 48 
5016 026026 020600 CMP SP,RO 
5017 026030 001401 BEQ +4 
5018 026032 104000 48: HLT 
5020 026034 012746 000001 Mov #1,-(SP) 
5021 026040 062706 000002 ADD #2,SP 
5022 026044 012702 177401 MOV —«-#177401,R2 
5023 026050 120246 CMPB —s-R2, = (SP 
5024 026052 001004 BNE 5$ 
5025 026054 122602 (MPB ss (SP) +,R2 
5026 026056 001002 BNE 5$ 
5027 026060 020006 CMP = RO, SP 
5028 026062 001401 BEQ +h 
5029 026064 104000 , 5$: HLT 
5030 026066 105037 177776 CLRB a#PSW 
5031 026072 010446 MOV R4,=(SP) RESTORE ORIGINAL PSW TO STACK 
5032 026074 010746 MOV PC; =(SP) 
5033 026076 062716 000006 ADD #6, (SP) 
5034 026102 000002 RT 
5035 ) IA ar aged te mein tonnage ape deggie oe gy gti dn ge magne staged dia tale atten cet ati 
5036 Z*TEST 45 CHECK THAT 'C' BIT SETS/CLEARS PROPERLY 
5037 Wee e eee RERARASSASASA SASS SR ARES SERRE SRR SRA RAR ARRAS ASA SARRSRR RRS S RASS SD S| 
5038 026104 000004 75145: SCOPE 
5039 026106 112737 000045 001202 MOVB #45, a#STSTNM ;LOAD TEST NUMBER 
5040 026114 013737 001202 177570 MOV a4$TSTNM, a#D I SPLAY [;DISPLAY TEST NUMBER 
5041 026122 012727 177776 CBIT: MOV #177776, (PC)+ ;LOAD CONSTANT 
5042 026126 000000 1$: .WORD 0 
5043 026130 010700 MOV PC.RO :GET CURRENT PC 
5044 026132 162700 000004 SUB #4-RO POINT RO TO 1$ ABOVE 
5045 026136 005520 2$: ADC (RO) + :ADD.*C* BIT TO 1$ ABOVE 
5046 026140 006340 ASL -(RO) :SHIFT 1S 
5047 026142 102375 BvC 2$ ONTIL 'V* BIT SETS 
5048 026144 022767 077776 177754 (MP - #077776, 18 SCHECK RESULT 
5049 026152 001401 BEQ +4 
5050 026154 104000 HLT ERROR! INCORRECT RESULT IN 1$ ABOVE 
5051 :RO=ADDRESS OF DATA 


5053 ; CHECK ed CONDITION CODES ARE SET PROPERLY WHEN A NUMBER (CURRENT PC) 
5054 SAND THAT NUMBER +1 ARE COMPARED, AND VICE VERSA. 
5055 026156 010700 CMPNUM : AMOV PC,RO GET CURRENT PC 
5056 026160 010002 MOV RO,R2 cane IN R2 
5057 026162 005202 INC R2 E R2 = RO+1 
5058 026164 000277 scc 
5059 026166 000251 +CLC!CLN ;CLEAR C & N BITS 
5060 026170 020002 CMP RO,R2 ;COMPARE # WITH #+1 
5061 026172 103003 BCC 1$ CARRY BIT SHOULD SET 
026174 102402 1$ 3V¥ BIT SHOULD CLEAR 
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CEQKCD.P11 04-OCT-79 08:55 THAT 'C* BIT SETS/CLEARS PROPERLY SEQ 0125 
5063 026176 001401 BEQ 1$ 32 BIT SHOULD CLEAR 
5064 026200 100401 BM] +4 :N BIT SHOULD SET 
5065 026202 104000 1$: HLT ;ERROR! COMPARE # WITH #+1 FAILED TO 
a0 ;SET CONDITION CODES IN PSW CORRECTLY 
5068 026204 000277 SCC ;SET CONDITION oe IN PSW 
5069 026206 120200 CMPB R2,RO ;COMPARE #+1 WITH 
5070 026210 103403 BCS 2$ :C BIT SHOULD CLEAR 
5071 026212 102402 BVS 2$ iV BIT SHOULD CLEAR 
5072 026214 001401 BEQ ec ;Z BIT SHOULD CLEAR 
5073 026216 100001 BPL . +4 :N BIT SHOLD CLEAR 
5074 026220 104000 e$: HLT sERROR! COMPARE #+1 WITH # FAILED TO SET 
5075 ;CONDITION CODES IN PSW CORRECTLY 
5076 026222 105037 177776 CLRB a4P Sw sENSURE PRIORITY 0 
5077 026226 000004 RELE4: SCOPE 
5078 026230 010702 MOV PC,R2 
5079 026232 062702 000012 ADD #12,R2 
5086 026236 012707 043764 MOV #RELOC, PC 7GO RELOCATE PROGRAM CODE 
5081 026242 000000 REL44: .WORD 0 
206 54444444444444 LAST ADDRESS OF CODE TO BE RELOCATED 44444444444 
5084 DDRII ICICI TORO IOIOO TOSCO IOIO SOO IOI IOS OA A AAA AISI SISA IAS AISI II SAAS SI SIAASISASACS A. 
5085 s*TEST 46 CHECK EXTENDED INSTRUCTION SET 
5086 DDO ISI IDOI IOI IOI IOIIOIIOIUIIUIDIOIOIUIOIUIOIUIOIOIOIUICIOISIOIIIUIDIDIOIDIDIDIOIIOIUIOINIOIDIO 
5087 026244 012767 000001 153054 MOV #1,$TIMES 3zDO 1 ITERATION 
5088 026252 000004 TST46: SCOPE 
5089 026254 112737 000046 001202 MOVB #46 ,A4STSTNM ;LOAD TEST NUMBER 
risa 026262 013737 001202 177570 MOV a4$TSTNM,a4DISPLAY :zDISPLAY TEST NUMBER 
5092 SBTTL START OF SECTION 5 
5093 5555555888555 FIRST ADDRESS TO BE RELOCATED 555555555 
5094 026270 010700 REL5: MOV PC -RO 3;GET PC 
5095 026272 005740 TST (RO) RO CONTAINS THE ADDRESS OF REL‘ 
5096 026274 010037 001540 MOV RO aeFRSTAD 7 SAVE 
5097 026300 010700 MOV PC,RO [GET CURRENT PC 
5098 026302 1627 026302 SUB #. RO + SUBTRACT RELOCATION FACTOR 
5099 026306 010037 001534 MOV RO, @#F ACTOR ; SAVE RELOCATION FACTOR 
5100 026312 010737 001212 MGV PC a#$LPERR ;SET LOOP ADDRESS 
5101 026316 062737 09000030 001212 ADD #30, a4$LPERR ADJUST 
5102 026324 013737 001212 001210 MOV @FSLPERR, @ASLPADR 
5103 026332 105737 001530 TSTB @ANE XEC ;BR IF TEST CODE TO BE EXECUTED 
5104 026336 001402 BEQ -+6 
5105 026340 000167 001510 JMP RELES 
5106 026344 005000 EXTINST:Ci 
5107 026346 000277 SCC ;PRESET CC'S 
5108 026350 006700 SXT RO sEXTEND SIGN (1) pes RO 
5109 026352 103005 BCC SxTO ;CHECK RESULT CC° 
5110 026354 102404 BVS SxTO 
5111 026356 001403 BEQ SxTO 
5712 026360 100002 BPL SxTO 
5113 026362 005200 INC RO CHECK RESULT 
5114 026364 001401 BEQ +4 
ez 026366 104000 SxTO: HLT 
5117 026370 010700 MOV PC,RO 
5118 026372 010002 MOV RO,R2 
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DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 
CEQKCD.F11 +06-0CT=79 08:55 START OF SECTION 5 SEQ 0126 
5119 026374 012703 177777 MOV #=-1 ,R3 
5120 026400 005102 COM R2 
5121 026402 000243 *CLV!ICLC ;CLEAR C AND V BITS 
5122 026404 074003 XOR RO,R3 :R3 SHOULD CONTAIN COMPLEMENT OF RO 
5123 026406 103404 BCS XORO ; CHECK THAT C WAS NOT AFFECTED 
5124 026410 102403 BVS XxORO ;AND THAT V WAS CLEARED 
5125 026412 001402 BEQ XxORO 
5126 026414 020203 CMP R2,R3 CHECK RESULT 
5127 026416 BEQ .*4 
21s8 026420 104000 xORO: HLT ERROR! KOR FAILED 
5130 026422 010700 MOV PC,RO 
5131 026424 022020 CMP (RO) +, (RO)+ ;SET ADDRESS REGISTER 
5132 026426 000401 BR 1$ sRESERVE WORD FOR TEST DATA 
5133 026430 000000 -WORD 0 ;CONTAINS TEST DATA 
5134 026432 005700 1$: TST RO sEXTEND SIGN OF ADDRESS INTO 
5135 026434 006710 SXT (RO) sADDRESS (RO)=-1 IF MSB RO=1 
5136 026436 005002 CLR R2 sOTHERWISE, (RO)=0 
5137 026440 005700 TST RO :CHECK SIGN OF ADDRESS 
5138 026442 100001 BPL .+4 
5139 026444 005102 COM R2 ; COMPLEMENT CHECK REG IF NEG 
5140 026446 021002 CMP (RO) ,R2 ;CHECK RESULT OF SXT 
5141 026450 001401 BEQ +4 
Ab, 026452 104000 SxXT1: HLT sERROR!  SXT FAILED TO EXTEND SIGN PROPERLY 
5144 026454 012710 100000 MOV #100000, (RO) PRESET DATA 
5145 026460 011002 MOV (RO) ,R2 
5146 026462 000277 Scc sPRESET CC'S 
5147 026464 074210 XOR R2, (RO) :xOR 100000 WITH 100000 RESULT = 0 
5148 026466 103007 BCC XOR1 ZCHECK CC'S AFTER XOR 
5149 026470 102406 BVS XOR1 
5150 026472 001005 BNE XOR1 
5151 026474 100404 BMI XOR1 
5152 026476 005710 TST (RO) CHECK RESULT (0) 
5153 026500 001002 BNE XOR1 
5154 026502 005402 NEG R2 ;CHECK THAT REG WAS NOT AFFECTED 
5155 026504 102401 BVS .14 
g128 026506 1040 XOR1 HLT 
5158 026510 010702 MOV PC,R2 
5159 026512 022222 CMP (R2)+, (R2)+ 
5160 026514 000401 BR SKT4 sPRESERVE WORD FOR DATA 
5161 026516 000000 . WORD 0 SRESERVED FOR DATA 
5162 026520 012722 125252 SXT4: MOV #125252,(R2)+  ;PRESET DATA 
5163 026524 006742 SXT -(R2) sEXTEND SIGN 
5164 026526 074722 XOR PC, (R2)+ 
5165 026530 010700 MOV PC,R GET PC 
5166 026532 005740 TST -(RO) ; SUBTRACT 2 FROM PC 
5167 026534 005100 COM RO ;RO=RESULT OF XOR PC-1 ABOVE 
5168 6536 074042 XOR RO,-(R2) ; CHECK RESULT OF SXT AND XOR ABOVE 
5169 026540 001401 BEQ .+4 
a1 026542 104000 XOR24: HLT ERROR! SXT & XOR ABOVE INCORRECT 
5172 026544 012704 000001 MOV #1,R4 SET RS 
5173 026550 006767 000060 SXT XORGA PRESET DATA=0 
5174 026554 074467 000054 2$: XOR R4,XOR6A 
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START OF SECTION 5 


XOR6: 


XORGA: 
XOR6B: 


SXT6: 


SXT6A: 


SXRA: 
SXRB: 


SXT2: 


SxT3: 


#1,R2 
@AFACTOR,R3 
RO,R 

XOR6A (3) 
SXT6A 

XOR6A 

~+4 


SHIFT RG 

[UNTIL V SETS (R4=100000) 
TBRANCH IF _'N' IS CLEAR 

3 XOR6A=177777 


7XOR PC WITH XOR6A (177777) 
:FORM PC AS USED IN XOR ABOVE 


:XOR6A SHOULD = COMPLEMENT OF PC 
ERROR! XOR TESTS ABOVE FAILED 


CONTAINS DATA USED BY TEST ABOVE 


i SET ee OPERAND FOR ADD 
;CLEAR XOR6A 
; CHECK ce S AFTER EXTENDING ZERO'S 


;ERROR! SXT FAILED 
SET DEST OPERAND FOR ADD 


;LOAD INDEX REGISTER 
RESULT OF ADD=100000 
EXTEND SIGN OF ADD ABOVE 


CHECK RESULT OF SXT 
;ERROR! SXT ABOVE FAILED TO EXTEND 
; SIGN 

;PRESERVE 2 WORDS FOR DATA 
RESERVED WORD FOR DATA 
RESERVED WORD FOR DATA 
;R3_= ADDRESS OF SXRA 
;CLEAR N BIT 

EXTEND ZEROS INTO SXRA 
ERROR! SXT FAILED 

;SXRA = ADDRESS OF SXRB 
CLEAR CONDITION CODES 
EXTEND ZEROS INTO SXRB 
ERROR! 


;SET N BIT 


SEQ 0127 
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START OF SECTION 5 


SXT a-(R3) sEXTEND ONES INTO SXRB 
BM! +4 
SKTS: HLT s ERROR! 
MOV #025252,R4 zR4 = 025252 
oon en 7SXRB = 152525 (COMPLEMENT OF R4) 
L 
xOR R2,a-(R3) ;SXRB REMAINS UNCHANGED 
BEQ XOR35 ;CHECK CONDITION CODES 
BPL XOR35 
COM RS sR4 = 152525 
CMP R4,SXRB ; CHECK XOR 
BEQ +4 
KOR35: HLT ZERROR! XOR FAILED 
TST -(R3) :R3 = ADDRESS OF SXRA-2 
CLN :CLEAR N BIT 
SXT @2(R3) > SXRB = 0 
BEQ +4 
SxT7: HLT ZERROR! SxXT FAILED 
XxOR R4,a2(R3) 7SXRB = R4 
CMP R4,a2(R3) ; CHECK XOR 
BEQ +4 
MOR7: HLT ;ERROR! xXOR FAILED 
bs 2 PRROROSAARAASOSASAALASSLESLESLASSESE SEE ERS SESE SRR RR RRR RS RRR RRR RRS ERE SS 
s*TEST 47 SOB TEST 
3* NOTE: DO NOT INSERT ANY CODE IN FOLLOWING SOB TESTS 
; SINCE IT TESTS THE MAXIMUM BRANCH WIDTH OF THE INSTRUCTION. 
4 oy PROSPER SSAASSAASZESSELSSSELEASALSSSE SEES ES ESSER ERR RS RRR SSE R ARRAS RRS R SSS SY 
1$147: SCOPE 
MOVB 447 ,AASTSTNM ;LOAD TEST NUMBER 
MOV @ASTSTNM, @ADISPLAY +: DISPLAY TEST NUMBER 
CLR R5 CLEAR ERROR INDICATOR 
BR SOBO ;BRANCH TO SOB TEST 
S$0B10: CLR RS sR4 = 0 
TST R5 : CHECK ERROR INDICATOR 
BEQ +4 ;SOB BRANCHED CORRECTLY 
HLT sERROR! 
SOB9 CLR R5 ;CLEAR INDICATOR (RS) 
ROR R4 sROTATE RIGHT R4& 
BR SOB8 
SOBO: MOV #10,R0 ;RO=10 
SCC :SET CONDITION CODES 
S0B1 BNE SOB2 ; CHECK coelie cOOEs a yen SOB 
BPL S0B2 ;SO0B SHOULD NOT EFFECT THE 
BYC SOB2 > CONDITION CODES. 
BCC SOB2 
SOB RO,SOB1 
BNE SOB2 :CHECK CONDITION CODES AFTER 
BPL SOB2 ;S0B FALLS THROUGH, 


BvC SOB2 :SOB SHOULD NOT EFFECT 


SEQ 0128 
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027132 CONDITION CODES. 
027134 00 ;CHECK IF RO=0 
027136 

027140 104000 : ZERROR! 


027142 . ;R2=100 
127 MO ° 3SET CHECK REGISTER, RO=101 
ZCHECK CONDITION CODES AFTER 


OB BRANCH 

SOB SHOULD NOT EFFECT 
>CONDITION CODES. 

[DECREMENT CHECK REGISTER 
7CHECK THAT SOB DECREMENTS 


SET CONDITION rit BEFORE SOB 
BRANCH TO $0B3 UNTIL R2=0 

; CHECK erg i+ CODES AFTER 
:S0B FALLS THROUGH 

CHECK IF R2=0 


sERROR! 
;RO=1 


04000 ;ERROR! 
027216 . ;SOB SHOULD NOT BRANCH 
027220 CHECK IF RO=0 AFTER SOB 


027222 
027224 ZERROR! 


027226 : #100000,R4 3R4=100000 
000403 BR i$ 


R4 :R4=100000 
0272 2$ 3N BIT SHOULD BE SET 
027240 104000 ERROR! SOB DID NOT 
; INCREMENT PROPERLY 


027242 : R4,3$ ;SOB SHOULD BRANCH 
027244 104000 ERROR! SOB DID NOT BRANCH 


027246 deta #100,R3 ;R3=100 
R3,S0B6 ;USE SOB TO BRANCH TO ITSELF 
R3 CHECK IF R3=0 
$0B10 


;ERROR! 


027262 : R5 CHECK INDICATOR (R5) 
:1F SOB BRANCHES INCORRECTLY 
; WHEN CHECKING MAX. BRANCH, 
R5 WILL NOT BE CLEARED AT 
STHIS POINT INDICATING AN ERROR, 


001401 . BRANCH IF SOB BRANCHES CORRECTLY 
104000 ;ERROR! 





DEQKC=> PDP 11/70-74MP CN. GREACISER 


CEQKCD.P11 04-0CT-79 
5343 027270 00520 
5344 027272 077477 
5345 027274 0057 
5346 027276 001401 
5347 027 104000 
5348 
5349 
5350 
5351 027302 
5352 027304 112737 
5353 027312 013737 
5354 027320 0602 
5355 027322 010705 
5356 027324 0500 
5357 027326 010546 
5358 027330 010746 
5359 027332 010746 
5360 7334 010746 
5361 027336 010746 
5362 027340 010746 
5363 027342 012746 
5364 027346 010605 
5365 027350 004767 
5366 027354 000403 
5367 027356 000205 
5368 027360 104 
5369 027362 000407 
5370 027364 020602 
5371 027 001402 
5372 027370 104000 
5373 027372 000403 
5374 027374 020005 
5375 027376 001401 
5376 027400 104000 
5377 027402 010206 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 


000050 
001202 


006405 
000002 


001202 
177570 
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147 SOB TEST 


INC R5 ;SET_INDICATOR (R5) 

SOB R4 , SOB9 :TEST MAX. BRANCH OF SOB 

TST R4 ZCHECK IF R4=0 

BEQ +4 

HLT Z ERROR! 
J FREER AAA ARR RAAAERARR ERA EAREREAAERERERKEREEEREREEREARARERHRER EH 

;*TEST 50 CHECK THE MARK INSTRUCTION 
'MARRARAAAAAAASZASLAALASLASASASES SAS AR ESSER ARRAS ERR RR RRR RRR RAS RRR SS 

18150: SCOPE 

MOVB #50, a#$TS LOAD TEST NUMBER 

MOV SeSTSTNM. aNDISPLAY :;DISPLAY TEST NUMBER 
MRKTST: MOV SP,R2 

MOV PC;R5 ;THE STACK LOOKS LIKE THIS AFTER 

MOV R5.RO :THE JSR INSTRUCTION 

MOV R5.-(SP) : -2(SP)= RO THIS IS A 

MOV PC; (SP) : -4(SP)= PC STRING ° 

MOV PC,-(SP) > -6(SP)= PC+2 OF 

MOV PC;-(SP) [-10(SP)= PC+4 FIVE 

MOV PC,=(SP) [-12(SP)= PC+6 DUMMY 

MOV PC,-(SP) =14(SP)= PC+10_ ARGUMENTS 

MOV WMARK+5,-(SP)  :-16(SP)= MARK 5 

MOV SP.R5 :-20(SP)= PC PUSHED BY JSR 

JSR PC; MARK1 

BR +10 
MARK1: RTS R5 

HLT ERROR! SHOULD BE DOING MARK 5 INST. 

BR MARKEX 

CMP SP,R2 

BEQ .+6 

HLT ERROR! SP NOT RETURNED TO PROPER 

BR MARKE X :VALUE BY MARK INSTRUCTION 

CMP RO,R5 

BEQ +4 

HLT ERROR! DID NOT RESTORE RS FROM STACK 
MARKEX: MOV R2,SP RESTORE SP 


PPrrerrrreti itt t ttt ttt titi i tii ti ttt te titi titi iii itiiiit iti iti it 


i*TEST 51 RTT/RTI TEST 


ed 


Oe ee ee ee 
see se @ 


RTT/RTI TEST INSURES THAT CP DOES THE INSTRUCTION FOLLOWING 
AN RTT IF THE ''T'BIT IS SET IN THE PSW,BUT DOES HONOR 

THE TRAP IMMEDIATELY IF IT EXECUTES AN RTI 

INSTRUCTION SEQUENCE=RTT 

2$: RTT 7NO 'T* TRAP AFTER RTT 


INC RO #RO= 000001 


TRAP TO 5$ AFTER INC 
5$: COM RO “RO= 177776 
MOV SAVPSW,2 (SP) :CLEAR 'T* BIT IN RETURN PSW 
RTI ;RETURN TO INSTRUCTION FOLLOWING INC 
CMP #RTT,2$ ; CHECK 
ETC 
INSTRUCTION SQUENCE=RT I 
2$: RTI s"¥" ~ re RTI 
5$: COM RO 3RO=1777 
MOV SAVPSW,2(SP) CLEAR sa BIT IN RETURN PSwW 
RT] [RETURN TO INC INSTRUCTION 


INC RO ;RO=000000 


SEQ 0130 


B11 
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5399 :* CMP #RTT,2$ ; CHECK 
5400 i* ETC 
5401 FF ATRAAAAAAAAAAAAARAAAARARAERARAARRARRAARRAARARAAARARARAAEAARERROED 
5402 027404 000004 TST51: SCOPE 
5403 027406 112737 000051 001202 MOVB #51,@4STSTNM LOAD TEST NUMBER 
5404 027414 013737 001202 177570 MOV aeSTSTNM, SrOISPLAN :DISPLAY TEST NUMBER 
5405 027422 013767 177776 000214 RITT1: MOV arPsw, SAVP PSwW 
5406 027430 032767 000020 000206 BIT #20. her oneeK an p= A SET 
5407 027436 001402 BEQ 1$ > CONT INUE IF 
54 027440 1 000402 JMP RTT2EX 5 CH TO EXIT. 
54 010746 1$: MOV PC,-(SP) GET CURRENT PC 
5410 027446 062716 000116 ADD #5%-., (SP) FORM RELOCATED PC 
5411 027452 012637 000014 MOV (SP) +, @#TBITVEC z;LOAD INTO TRAP VECTOR 
5412 027456 016746 000162 MOV SAVPSW, = (SP) :GET CURRENT PSW 
5413 027462 011637 000016 MOV (SP) , a#TBITVEC+2 
5414 027466 052737 000340 177776 BIS #PR7 , aAPSW SET PRIORITY LEVEL 7 
5415 027474 005000 CLR RO 
5416 027476 052716 000360 BIS #PR7+20, (SP) sSET ‘T'BIT IN PSW ON STACK 
5417 027502 010746 MOV PC,-(SP) PUT THE PC ON THE STACK 
5418 027504 062716 000006 ADD #6, (SP) z;ADJUST PC FOR NEXT INSTRUCTION 
5419 027510 000006 2$: RTT 
5420 027512 005200 INC kO DONE TO SEE IF INSTR. FOLLOWING 
5421 RTT IS EXECUTED IF T-BIT SET 
5422 027514 042737 000340 177776 BIC #PR7 , aAPSW SET PRIORITY LEVEL 0 
5423 027522 022767 000006 177760 CMP #RTT,2$ 
5424 027530 001005 BNE 3$ CHECK IF INC WAS EXECUTED 
5425 027532 022700 177776 CMP #177776,R0 CHECK IF COM-RO EXECUTED 
5426 027536 001406 BEQ 4$ 
5427 027540 104000 HLT Z ERROR + RO Nor COMPLIMENTED 
5428 027542 000415 BR 6$ sEXIT TEST 
$429 027544 005700 3s: TST RO TEST IF TRAPED BEFORE INC INST. 
5430 [WAS EXECUTED 
5431 027546 001413 BEQ 6$ 
5432 027550 104000 HLT sERROR! 
5433 027552 000411 BR 6$ sEXIT TEST 
5434 027554 012767 000002 177726 4$: MOV #RTI,2$ 
5435 027562 000730 BR 1$ 
5436 027564 005100 5$: COM RO sRTT CHECK 
5437 027566 016766 000052 000002 MOV SAVPSW, 2 (SP) 
5438 027574 000002 RTI 
5439 027576 012767 000006 177704 6$: MOV #RTIT,2$ 
5440 027604 012737 001520 000014 MOV #SRTRN, AATBITVEC RESTORE 'T* TRAP VECTOR 
5441 027612 905037 000016 CLR @4TBITVEC+2 
5442 027676 042737 000360 000016 BIC #PR7+BI1T4 ,AATBITVEC+2 
5443 027624 RTITIEX: 
5444 CL AAA AERA REEEERERERREREEREEAEEREERERERETAERERE HE 
5445 z*TEST 52 SECOND RTT TEST 
5446 LEAR RARER EEE ERE EERE EAE RARER EERE RERAREEEA ARERR 
5447 027624 000004 TST52: SCOPE « 
5448 027626 112737 000052 001202 MOVB #52, a4STSTNM :LOAD TEST NUMBER 
5449 027634 013737 001202 177570 MOV @4$TSTNM, a#DISPLAY >:DISPLAY TEST NUMBER 
5450 027642 000401 BR RTT2A 
5451 027644 000000 SAVPSW: .WORD 0 
5452 027646 016700 177772 RTT2A: MOV SAVPSW,RO GET SAVED PSW 
5453 027652 105000 CLRB RO CLEAR PRIOITY LEVEL.T. AND COND CODES 
5454 027654 012702 144000 MOV MUM+REG,R2 
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010746 
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010702 
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000000 
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000100 
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000006 
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T52 SECOND RTT TEST 


XOR RO,R2 

BEQ 2$ USER MODE REG. SET #1 ON 
MOV #SM+REG,R2 

XOR RO,R2 

BEQ 3$ ;SUPER MODE REG. SET #7 ON 


BIT #UM,RO 
BNE RTTOEX 


TEST THAT RTT CLEARS BITS 11,12,13 & PRIORITY LEVEL BITS IN KERNEL MODE 
MOV #-1,R KERNEL MODE REG. SET 0 ON 
MOV #PUM*REGSPRS, aF4PSW [SELECT REG. SET #1 
CLR SHOULD CLEAR REG #12 


MOV PC,-(SP) 


ADD #1$-., (SP) ZFORM NEW PC 
1$: MOV arPSw,RO NOW USING REG SET 0 

TST R2 :SHOULD TEST R2 NOT R12 

BNE 4$ 

HLT zERROR!DID NOT CLEAR BIT #11 OF PSW 
48: CMP #PR2,RO sTESTS THE PSwW AFTER THE R 

BEQ RT72EX 

HLT zsERROR! INCORRECT PSw AFTER THE RTT 

om RTT2EX 


TEST TO INSURE THAT RTI DOES NOT CLEAR BITS 11-15 IN USER MODE 
es: BIS #PUM+PR7 ,@APSW = PSW<15-5>=144x 

CLR - (SP) 

MOV PC,~(SP) 

ADD #5$-., (SP) 


RTI ZATTEMPS TO INSERT A PSW OF 0 
S$: CMP #UM+PUM+REG+PR7,@4PSW  :SHOULD CHECK AGAINST REG #0 
BEQ RTT2EX 
HLT ;ERROR! RTI CLEARED BITS IN PSw 
BR RIT2EX 
-TEST THAT BITS 11-15 AND PRIORTY BITS ARE NOT ALTERED IN SUPER MODE 
3$: BIS APUM+PR4 @APSW = PSW<15-5>=044X 


ADD #6$-., (SP) 


RTT :ATTEMPTS TO CLEAR 11-15 AND ALTER PR 
6$: CMP HSM+PUM+REG+PR4 , a#PSWw 

BEO RIT2EX 

HLT :FRROR! RTT ALTERED PR IN 

>SUPER MODE OR BITS 11-15. 

RTT2EX: MOV SAVPSW, @APSW 
RELE5: SCOPE 

MOV C,R2 

ADD Wide 


Re 
MOV #RELOC ,PC ;GO RELOCATE PROGRAM CODE 
REL5SS: .WORD 0 
;5555555555555 LAST ADDRESS OF CODE TO BE RELOCATED 55555555555 


CLAM AAA ARERAERARAEAERARAARERAARARARRERAARAAAEAAAARARRENR ERE 


SEQ 9132 
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5511 r*TEST 53 CHECK ASH, ASHC, MUL, AND DIV INSTRUCTIONS 

5512 FF ARARARARAAARARAARARRARARERARARERRRERRARARRERERAARAREARRARREEAEHD 
5513 030072 012767 000001 151226 MOV #1,$TIMES ::D0 1 ITERATION 

5514 030700 000004 TSTS3: SCOPE 

5515 030102 112737 000053 001202 MOVB #53,a4STSTNM ;LOAD TEST NUMBER 

2218 030110 013737 001202 177570 MOV @4$TSTNM,@4DISPLAY siDISPLAY TEST NUMBER 
5518 .SBTTL START OF SECTION 6 

5519 ; 9666666665666 FIRST ADDRESS TO BE RELOCATED 666666666 

5520 030116 010700 REL6: PC,RO 7GET PC 

5521 030120 005740 Tey (RO) *RO CONTAINS THE ADDRESS OF REL6 
5522 030122 010037 001540 MOV RO SeFRSTAD 7 SAV 

5523 030126 010700 MOV PC,RO 'GET CURRENT PC 

5524 03013C 162700 030130 SUB #.,RO ; SUBTRACT RELOCATION FACTOR 
5525 030134 010037 001534 MOV RO. a#FACTOR :SAVE RELOCATION FACTOR 

5526 030140 010737 001212 MOV PC, ,@#$LPERR ;SET LOOP ADDRESS 

5527 030144 737 000030 001212 ADD #30, a4S$LPERR § : ADJUST 

5528 030152 013737 001212 001210 MOV @FSLPERN , a#SLPADR 

5529 030160 105737 001530 TSTB @ANEXEC ;BR IF TEST CODE TO BE EXECUTED 
5530 030164 001402 BEQ +6 

5531 030166 000167 002120 JMP RELE6 

5532 030172 012700 000001 ASHLO: MOV #1.RO :RO WILL BE THE SHIFT COUNT 
5533 030176 012703 000021 MOV #17.,R3 [MAX SHIFT COUNT 

5534 030202 005067 000014 1$: CLR 2$ “PRESET SAVED CC'S LOCATION=0 
5535 030206 010002 MOV RO,R2 :GET SHIFT COUNT FOR PASS 

5536 030210 010705 MOV PC,RS 5 & R4 WIL’ BE DATA SHIFTED BY 
5537 030212 010504 MOV R5,R4 PASH ¢ ASL INSTRUCTIONS 

5538 030214 072502 ASH R2.R5 >SHIFT R5 

5539 030216 113727 177776 MOVB  af#PSW,(PC)+ + SAVE ‘Ct’s 

5540 030222 000000 2$: .WORD 0 : CONTAINS ASH CC'S IN EVEN BYTE 
5541 SASL 3 IN ODD BYTE 

5542 030224 006304 3$: ASL R4 TSHIFT R4 

5543 030226 113746 177776 MOVB  a&PSW,-(SP) SSAVE PSW ON STA 

5544 030232 132716 000002 BITB #2, (SP) ;CHECK IF ASL SET V BIT 

5545 030236 001403 BEQ 30$ 

5546 030240 152767 000002 177755 BISB = #2, 2$ +1 rIF ASL SET V THEN. SET V IN 2$41 
5547 030246 112637 177776 30$: MOVB  (SP)+,a4PSw SRESTORE ORIGINAL P 

5548 030252 077214 SOB R2,3$ ZSHIFT R4 R2 tims 

5549 030254 153767 177776 177741 BISB = a#PSW, 2$+1 [SAVE CC'°S AFTER ASL 

5550 030262 020504 CMP R5,R4 s CHECK ASH & ASL RESULTS 

5551 030264 001004 BNE 4$ 

5552 030266 126767 177730 177727 CMPB —s--2$ , 2$ +1 :CHECK ASH & ASL CC'S 

5553 030274 001401 BEQ +4 

5554 030276 104000 4$: HLT sERROR! INCORRECT RESULT OR CC'S 
5555 030300 005200 INC RO ; INCREMENT PASS SHIFT COUNT 
5556 030302 020003 CMP RO.R3 

5557 0 001336 BNE 

5559 030306 012700 177777 ASHRO: MOV #-1,R0 ;RO = RIGHT SHIFT COUNT FOR PASS 
5 030312 012703 177757 MOV #-17, .R3 :MAX SHIFT COUNT 

5561 030316 010002 1$: MOV RO,R2 “GET SHIFT COUNT FOR PASS 

$562 630320 010705 MOV PC-RS *R5 & R4 = DATA TO BE SHIFTED 
5563 030322 010504 MOV R5,R4 ;BY ASH & ASR INSTRUCTIONS 

5564 030324 072502 ASH R2,R5 ‘SHIFT R5 R2 T 

5565 030326 113727 177776 MOVB a@fPSwW,(PC)+ :SAVE CC*S IN EVEN BYTE 

5566 030332 000000 2$: . WORD 0 ;CONTAINS ASH CC'S o EVEN BYTE 
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DE GK 
CEQKCD.P11 04-OCT-79 08:55 START OF SECTION 6 SEQ 0134 
5567 zASR CC'S IN ODD BYTE 
$568 030334 005402 NEG R2 
5569 030336 006204 3: ASR RG ZSHIFT R4 
5570 030340 077202 SOB R2,3$ SSHIFT RG R2 TIMES 
5571 030342 113767 177776 177763 MOVB = @#PSwW, 2$+1 *SAVE CC'S AFTER ASR 
5572 030350 142767 00002 177755 BICB —s-: #2, 2$+1 SASH RIGHT WILL NOT SET Vv ASR MAY SET Vv 
5573 030356 020504 CMP RS_R4 “CHECK ASH & ASR RESULTS 
5574 030360 001004 BNE 4$ 
5575 030362 126767 177744 177763 CMPB «2, 281 ZCHECK ASH & ASR CC°S 
5576 030370 001401 BEO +6 
5577 030372 104000 48: HLT 
5578 030374 005300 DEC RO :DECREMENT PASS SHIFT COUNT 
5579 030376 020003 CMP RO,R3 
3580 0 001346 BNE 
5582 030402 012746 000037 ASHCLO: MOV #31. ,-(SP) :PUT MAX SHIFT COUNT ON STACK 
5583 030406 012746 000001 MOV #1,-(SP) ‘PUT LEFT SHIFT COUNT ON STACK 
5584 030412 011600 1$: MOV (SP) RO =GET PASS SHIFT COUNT 
5585 030414 010705 MOV PCRS *CURRENT PC IS DATA TO BE SHIFTED 
5586 030416 010503 MOV R5.R3 TASHC SHIFTS R4.R5:ASL,ROL SHIFTS R2,R3 
5587 030420 005004 CLR RG 
5588 030422 005002 CLR R2 
5589 030424 073400 ASHC — RO, R4 ZSHIFT R4 LEFT as SPECIFIED BY RO 
5590 030426 006303 2$: ASL R3 *SHIFT R2.R3 L 
5591 030430 006102 ROL R2 ZAS SPECIFIED” BY *R0 
5592 030432 077003 S0R RO, 2$ 
5593 030434 020402 CMP R4_R2 = CHECK RESULTS 
5594 030436 001002 BNE $ 
5595 0304640 020503 CMe RS ,R3 
5596 030442 001401 BEQ “a 
5597 030444 104000 zg: HLT 
5598 030446 005216 INC (SP) : INCREMENT NEXT PASS SHIFT COUNT 
5599 030450 021666 000002 CMP (SP) ,2(SP) SREACHED MAX COUNT (31.) 
030454 001356 BNE 1$ 
soho 030456 022626 CMP (SP)+,(SP)+ ZRESTORE STACK PTR 
5603 030460 012746 177740 ASHCRO: MOV #-32.,-(SP) :PUT MAX RIGHT SHIFT COUNT ON STACK 
5604 030464 012746 177777 MOV #-1,-(SP) “PUT PASS SHIFT COUNT ON STACK 
5605 030470 011600 1$: MOV (SP) RO [GET PASS SHIFT COUNT 
5606 030472 010702 MOV PC ,R2 [R2,R3 & R4.RS ARE THE DATA REGISTERS 
5607 030474 010204 MOV R2.R4 ‘TO BE SHIFTED BY TEST 
5608 030476 005003 CLR R3 
5609 030500 005005 CLR R5 
5610 030502 000262 SEV :SET V BIT INP 
5611 030504 073200 ASHC — RO, R2 SSHIFT R2.R3 RIGHT RO TIMES 
5612 030506 102410 BVS 3$ ZSHIFT RIGHT CLEARS V 
5613 030510 NEG RO “NEGATE SHIFT COUNT FOR SOB 
5614 030512 006204 2$: ASR RS s SHIFT R4,R5 RIGHT RO TIMES 
5615 030514 006005 ROR RS 
5616 030516 077003 S0B RO, 2$ 
5617 030520 020204 CMP R2.R4 = CHECK RESULT 
5618 030522 001002 BNE 3$ 
5619 030524 020305 CMP R3,R5 
5620 030526 001401 BEQ ‘ 
5621 930530 104000 3g: HLT 


5622 030532 005316 DEC (SP) 7SET SHIFT COUNT FOR NEXT PASS 
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CEQKCD.P11 04-0(T-79 08:55 START OF SECTION 6 SEO 0135 
5623 030534 021666 000002 CMP (SP) ,2(SP) ;CHECK IF MAX SHIFT COUNT 
5624 B30860 001353 BNE 1$ 
5625 0305462 022626 CMP (SP)+,(SP)+ RESTORE STACK PIR 
5626 ff AMAA AAAAAAAARARARERARAATHARARARAARARARAAARARALRARARAAARAARAAAARAANAAE 
562 :eTEST 546 CHECK MUL 
5628 xa THE BELOW TEST OF THE MUL INSTRUCTION MULTIPLIES THE CURRENT we 
5629 te BY 1,2,4,8 ETC AND SHIFTS THE SAME PC VALUE USING AN ASHC LEFT By 
5630 ;* 0.1,2,3,.L1C AND COMPARES THE RESULTS. CONDITION CODE RESULTS ARE NOT CHECKED. 
5631 FF TARA AAAARAAAAAAARAAAAAARARAARARRAARARARERARARARRAARRARAEAREHREDAER 
5632 030544 000004 TST54: SCOPE 
5633 030546 112737 000054 opr ede MOVB 454, GASTSTNM ;LOAD TEST NUMBER 
5634 030554 013737 001202 177570 MOV aa$TSTNM, @4DISPLAY Zs zDISPLAY TEST NUMBER 
5635 030562 012700 000001 MULO: MOV #1,R0 ;RO CONTAINS MULTIPLIER FOR MUL 
5636 030566 012706 000700 MOV ASUPSTK, SP =SETUP THE STACK 
5637 030572 005016 CLR (SP) ; (SP) CONTAINS SHIFT VALUE FOR ASHC 
5638 030574 010702 1$: MOV PC,R2 3R3,R2 & RS.R4 ARE DATA REGISTERS 
5639 030576 910227 MOV R2,(PC)+ ; SAVE MULTIPICAND 
5640 030600 000000 -WORD 0 ; CONTAINS ORIGINAL MULTIPICAND 
5641 030602 005003 CLR R3 
5642 030604 005004 CLR RS 
5643 030606 010205 MOV R2,R5 ;FOR MUL AND ASHC 
5644 030610 100001 BPL .+4 if MULTPICAND IS NEG THEN SET R4 = =-1 
5645 030612 005104 COM RG FOR ASHC 
5646 030614 000277 SCC ; “PRESET CC'S 
5647 030616 070200 MUL RO,R2 “MULTIPLY R2 BY RO LEAVE PRODUCT 
5648 > IN R2,R3 MSH IN R2,LSH IN R3 
5649 030620 102406 BVS 2$ 
5650 030622 001405 BEQ 2$ : PRODUCT WILL NEVER BE = 0 
5651 030624 073416 ASHC (SP) RS :"MULTIPLY' R4,RS5 BY (SP) LEAVE PRODUCT 
5652 > IN R4,RS MSH IN R4,LSH IN RS 
5653 030626 020204 CMP R2,R4 CHECK MSH RESULT 
5654 030630 001002 BNE 2s 
5655 030632 020305 CMP R3,R5 CHECK LSH RESULT 
5656 030634 001401 BEG .+4 
4057 030636 104000 2$: HLT ’ 
5658 030640 005216 INC (SP) ; INCREMENT ASHC SHIFT COUNT 
5659 030642 006300 ASL RO ;SHIFT MUL MULTIPLIER 
5660 030644 102353 BVC 1$ 
5661 s CHECK MUL INST WITH MULTIPIER (RO) = 100000 
5662 030646 010702 MOV PC,R2 zR2 = MULTIPICAND 
5663 030650 0605202 INC R2 
5664 030652 010227 MOV R2, (PC) + ; SAVE MULTIPICAND 
5665 030654 000000 . WORD 0 ; CONTAINS ORIGINAL MULTIPICAND 
5666 030656 005103 COM R3 
5667 030660 010204 MOV R2,R4 3R4 WILL BE MSH *PRODUCT* 
5668 030662 006204 ASR RS *FORM *PRODUCT 
5669 030664 005104 COM RS : COMPLEMENT MSH ‘PRODUCT’ 
5670 030666 070200 MUL RO,R2 [MULTIPLY R2 BY 100000 LEAVING 
567 7R2 = MSH, R3 = LSH PRODUCT 
5672 030670 020204 CMP R2,R4 : COMPARE MSH PRODUCTS 
5673 030672 001002 BNE 3$ 
5674 030674 020003 CMP RO,R3 : CHECK LSH PRODUCT 
5675 030676 001401 BEQ +4 
5676 030700 104000 3$: HLT 


5677 FL AMARA RAAAAAAAAAAERARARARAAAAEAEHAAARAARAAARAHAEAHHEREKARAAEAAHHAE SS 


5678 TeTEST 55 CHECK THE DIV INSTRUCTION 
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SEQ 0136 
5679 :* THE BELOw TEST OF THE DIV INSTRUCTION DIVIDES THE CURRENT PC BY 7 
5680 ie 1,2,4-8,6TC LEAVING THE QUOTIENT/REMAINDER IN R2/R3. NEXT THE QUOTIENT 
5681 :* 1§ MULTPLIED BY 1,2,4,8,ETC AND THE REMAINDER ADDED. THE RESULT I 
5682 ie THEN COMPARED WITH THE ORIGINAL CURRENT PC. 
5683 FF URAAAAAAAARAARAAEEARARRARARERAEAARERARRARREREARERRERRERERRRERAR EH 
5684 030702 000004 $155: SCOPE 
5685 030706 112737 000055 001202 MOVB #55, aa#STSTNM ;LOAD TEST NUMBER 
5686 030712 013737 001202 177570 MOV aa$TSTNM, aaDISPLAY :;DISPLAY TEST NUMBER 
5687 030720 012700 000001 DIVO: MOV #1,RO ;RO=DIVISOR 
5688 030724 010716 MOV PC, (SP) ZSAVE DATA ON STACK 
5689 030726 011603 1$: MOV (SP) ,R3 GET DATA 
5690 030730 005002 CLR R2 [CLEAR MSH DIVIDEND 
5691 030732 000277 SCC 
5692 030734 071200 DIV RO.R2 ;DIVIDE R2 BY RO LEAVING QUOTIENT IN R2 
5693 [AND REMAINDER IN R3 
5694 030736 103417 BCS 2$ 
5695 030740 100416 BMI 2$ 
5696 030742 102007 BVC 208 ;BRANCH IF DIVIDE WORKED 
5697 030744 022700 000001 CMP #1,RO :V BIT SHOULD ONLY SET IF DIVIDING BY 1 





¥11 30A(1052) 






5698 030750 001012 BNE 2$ [AND THE LSH OF DIVIDEND 
5699 030752 032716 100000 BIT #100000, (SP) 1S NEGATIVE 
5700 030756 001407 BEQ 2$ 
5701 030760 000407 BR 3$ 
5702 030762 010204 208: MOV R2,R4 GET QUOTIENT 
5703 030764 070400 MUL RO,R4 sMULTIPLY QUOTIENT BY DIVISOR 
5704 030766 060305 ADD R3,R5 ;ADD REMAINDER TO LSH PRODUCT 
5705 030770 103402 BCS 2$ SHOULD BE NO CARRY 
5706 030772 021605 CMP (SP) ,R5 ; CHECK RESULT 
5707 030774 001401 BEQ ~*4 
5708 030776 104000 2$: HLT ERROR! DIVIDE FAILED 
5709 QUOTIENT IS IN R2,REMAINDER IN R3 
5710 sORIGINAL PC _ IS ON STACK AND FINAL 
5713 PRODUCT IN R4,R5 CMSHICLSHI 
5712 031000 006300 3$: ASL RO ;GET NEXT DIVISOR 
i 031002 102351 BvC 1$ 
5715 3; CHECK ASH,ASHC, et AND DIV INSTRUCTIONS USING ADDRESS MODE 1 
5716 031004 005016 ASHL1: CLR (SP) (SP) = SHIFT COUNT 
5717 031006 005000 CLR RO :RO = SHIFT COUNT FOR CHECK ASH 
5718 031010 012702 00002U MOV #16. ,R2 R2 = MAX LEFT SHIFT COUNT 
5719 031014 005067 000012 1$: CLR 2$ CLEAR CC*S HOLDING ADDRESS 
5720 031020 010703 MOV PC,R3 7R3,R4 = DATA TO BE SHIFTED 
5721 031022 010304 MOV R3,R4 
5722 031024 072316 ASH (SP) ,R3 ; SHIFT an A ald (SP) TIMES 
5723 031026 013727 177776 MOV @APSW, (PC) + SAVE C 
5724 031032 000000 2$: -WORD 0 ‘CONTAINS * ASH (SP) ,R3 CC*S “ EVEN BYTE 
5725 ZAND ASH RO,R4 CC'S IN ODD BYTE 
5726 031034 072400 ASH RO,R4 SHIFT R4 LEFT RO TIMES | 
5727 031036 113767 177776 177767 MOVB a4PSwW,2$+1 SAVE CC'S IN ODD BYTE OF 2% 
5728 031044 020304 CMP R3,R4 7; COMPARE RESULTS 
5729 001004 BNE 3$ sBRANCH IF THEY DO NOT COMPARE 
177756 177755 “ay ar at ;CHECK CC°S AFTER ASH INSTRUCTIONS 
+ 
3$: HLT sERROR: EITHER RESULTS OF SHIFT OR 





SRESULT CC'S ARE INCORRECT 
; INCREMENT SHIFT COUNT FOR ASH RO,R4 





RO 
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CEQKCD.P11 04-OCT-79 08:55 CHECK THE DIV INSTRUCTION SEQ 0137 
5735 031064 005216 INC (SP) ; INCRENENT SHIFT COUNT FOR ASH (SP) ,R3 
5736 031066 020200 CMP Re .RO : CHECK FOR MAX SHIFT COUNT 
rie LA 031070 00135 BNE $ 
5739 031072 005016 ASHR1: CLR (SP) (SP) = SHIFT COUNT FOR ASH _ 
5740 031074 005000 CLR RO 7RQ = SHIFT COUNT FOR ASH RO,R 
5741 031076 005402 NEG R2 ;R2 = MAX RIGHT SHIFT COUNT (SET SY 
5742 ; ABOVE TEST TO 16. NOW = 16. 

5743 031100 005067 000012 1$: CLR 2$ CLEAR CC*S HOLDING NADDRESS 
5744 031104 010704 MOV PC,RS >R4,R5 = DATA TO BE SHIFTED RIGHT 
5745 031106 010405 MOV R4 RS 
5746 031110 072416 ASH (SP) ,RS sSHIFT R4 RIGHT (SP) TIMES 
S747 031112 013727? 177776 MOV @aAPSW, (PC) + SSAVE CC'S 
5748 031116 2$: -WORD 0 : CONTAINS ASH (SP) .R4 CC*S IN EVEN BYTE 
5749 SAND ASH RO.RS CC'S IN ODD BYTE 
5750 031120 072500 ASH RO,R5 :SHIFT RS RIGHT RO TI 
5751 031122 113767 177776 177767 MOVB aAPSW, 2$+1 SAVE CC*S IN ODD BYTE 2% 
5752 031130 020405 CMP R4,R5 CHECK RESULTS 
5753 031132 1004 BNE 3$ 
5754 031134 126767 177756 177755 CMPB 2$, 2$+1 CHECK RESULT CC'S 
5755 031142 001401 BEQ +4 
5756 031144 104000 3$: HLT ERROR! EITHER RESULTS OR RESULT CC'S 
5757 :DID NOT COMPARE 
5758 031146 005300 DEC RO ;DECREMENT SHIFT COUNT 
5759 031150 005316 DEC (SP) ;DECREMENT SHIFT COUNT FOR ASH (SP) ,R4 
5760 031152 020002 CMP RO,R2 CHECK FOR MAX RIGHT SHIFT 
5761 031154 001351 BNE 1$ 
5762 SRO Ee 
5763 Z*TEST 56 DIVIDE AGAIN 
5764 _ THE BELOW TEST CHECKS THE DIVIDE INSTRUCTION BY DIVIDING 
5765 :* THE CURRENT PC BY ITSELF+1. THE QUOTIENT (IN R2) ALWAYS = 0, 
5766 ze AND THE REMAINDER (IN R3) ALWAYS = THE CURRENT PC. 
5767 Tagua pt amen teencae a ccemeeemmatncane 
5768 031156 TST56: SCOPE 
5769 031160 112737 000056 001202 MOVB #56, a4$1STNM LOAD TEST NUMBER 
5770 031166 013737 001202 177570 MOV @4$TSTNM,a4DI SPLAY ;DISPLAY TEST NUMBER 
5771 031174 010703 DIv1 MOV PC,R3 ; CURRENT "BC IS LSH DIVIDEND 
5772 031176 702 SXT Re SEXTEND SIGN TO R2 (MSH DIVIDEND) 
5773 031200 010304 MOV RS SAVE ORIGINAL DIVIDEND 
5774 031202 010316 MOV R3, (SP) PUT ON STACK 
5775 1204 005216 INC (SP) :ADD 1 (WILL BE DIVISOR) 
5776 031206 2 BPL 1 BRANCH IF POSITIVE 
5777 031210 162716 000002 SUB #2, (SP) MAKE DIVISOR ] De THAN DIVIDEND 
5778 031214 071216 1$ DIV (SP) ,Re DIVIDE R2 BY 
779 031216 + 103410 BCS $ ; CHECK CONDITION. Copes 
5780 031220 102407 BVS 2$ 
5781 031222 001 BNE 2$ 
5782 031224 100405 BMI 2$ 
5783 031226 905702 TST R CHECK QUOTIENT (R2 = 0) 
5784 031230 001361 BNE v1 
5785 031232 010416 MOV R4, (SP) GET ORIGINAL DIVISOR 
5786 1234 020316 CMP R3, (SP) CHECK REMAINDER 
5787 031236 001401 BEQ +4 
5788 031240 104000 e$: HLT ZREPORT ERROR 
5789 LLANE REET REA E REAR ARE TAR ARERR HERE RRR TETRA E REAR 
5790 TRTEST 57 CHECK SPi INSTRUCTION 
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CEQKCD.P11 = 04-OCT-79 08:55 15? CHECK SPL INSTRUCTION SEQ 0138 
$791 ff RRAAAARAARARAAAKARARAARARARARAAAAAARAARARARAHAAARAARARARARARAARERED 
§792 031242 000004 T5157: SCOPE 
5793 031244 112737 000057 001202 MOVB #57, aaSTSTNM ;LOAD TEST NUMBER | 
5794 031252 013737 001202 177570 MOV @ASTSTNM, OD 1 SPLAY 7;DISPLAY TEST NUMBER 
5795 031260 012702 SPLTST: MOV (PC)+,R2 zR2 CONTAINS OF CODE FOR SFL 7 
5796 031262 000237 SPL 7 
5797 031264 005004 CLR R4 
5798 031266 042744 000340 BIC #PR7,=(R4) ;CLEAR PRIORITY LEVEL BITS IN PSW 
5799 031272 011403 MOV (R4) -R3 GET CURRENT PSw 
3800 031274 042703 177757 BIC #177757 ,R3 R3 CONTAINS CORRECT PSwW AFTER SPi 
5802 031300 012767 000230 000010 MOV #SPL+0,28 INITIALIZE SPL INSTRUCTIONS 
5803 031306 012767 000237 000050 MOV #SPL+7.5$ 
5804 031314 000257 1$: CCC ;CLEAR CONDITION CODES 
5805 031316 000230 2$: SPL 0 7SET PRIORITY LEVEL (NOTE: SPL=NOP IF USER/SUPER MODE ) 
5806 031320 121403 CMPB (RS) ,R3 ;CHECK RESULT OF SPL ABOVE 
5807 031322 001401 BEQ +4 
5808 031324 104000 HLT ;ERROR! SPL ABOVE FAILED 
5809 031326 032714 140000 BIT UM, (R4) IF NOT IN KERNEL MODE THEN SPL 
5810 031332 001002 BNE 3$ [ACTS AS A NOP 
5811 031334 062703 000040 ADD #40 ,R3 SET NEXT CORRECT PSwW RESULT 
5812 031340 005267 177752 3$: INC 28 SET NEXT SPL_INSTRUCTION 
5813 031344 026702 177746 CMP 2$,R2 CHECK IF DONE 
§814 031350 002761 BLT 1$ [LOOP UNTIL DONE CHANGING SPL EACH PASS 
5815 031352 012702 MoV (PC)+,R2 >R2 CONTAINS SPL INSTRUCTION BEL Ow 
5816 031354 000230 SPL 0 
5817 031356 052703 000017 BIS #17,R3 ;SET CONDITION CODE RESULT INTO R3 
5818 031362 000277 4$: SCC SET CONDITION CODES 
5819 031364 000237 S$: SPL 7 SET PRIORITY LEVEL -- 
5820 031366 121403 CMPB (RG) ,R3 CHECK RESULT OF SPL ABOVE 
5821 031370 001401 BEQ +4 
§822 031372 104000 HLT ;ERROR! SPL ABOVE FAILED 
5823 031374 032714 140000 BIT HUM, (RS) :CHECK IF IN KERNEL MODE 
5824 031400 001002 BNE 6$ 
5825 031402 162703 000040 SUB #40 ,R3 ;SET NEXT CORRECT PSwW RESULT 
5826 031406 005367 177752 68: DEC 5$ SET NEXT SPL 
5827 031412 026702 177746 CMP 5$.R2 >CHECK IF DONE ALL SPL'S 
5828 031416 002361 BGE 4$ 
5829 Whee eSRER ESSERE SESEARS SEAS S RSE SSSA RARER RRR RRR RRR ERAS ARRAS SS SO | 
5830 S*TEST 60 CHECK PIRQ LOGIC 
5831 ie THIS TEST CHECKS THAT WHEN A REQUEST IS MADE AT A LEVEL = TO THE 
5832 :* CURRENT PROCESSER PRIORITY LEVEL THAT NO INTERRUPT TAKES PLACE, AND 
5833 :% THAT WHEN A REQUEST IS MADE AT A LEVEL 1 GREATER THAN THE CURRENT PRO- 
5834 i+ CESSER LEVEL THAT AN INTERRUPT OCCURS 
5835 Wen ASAE ARARESASSASESALASASASAASES ERAS SASS SES RSR SARE SRSA SRS SE SS | 
5836 031420 000004 T5160: SCOPE 
5837 031422 112737 000060 001202 MOVB #60, a4$TSTNM ;LOAD TEST NUMBER 
5838 031430 013737 001202 177570 MOV a#$TSTNM, @#D I SPLAY ;DISPLAY TEST NUMBER 
5839 031436 012700 031602 PIRQO: MOV #4$,RO RO POINTS TO A TABLE OF CORRECT PIRG 
5840 :CONTENTS AFTER AN INTERRUPT 
5841 031442 012702 000400 MOV #400,R2 :R2 CONTAINS INTERRUPT REQUEST LEVEL 
5842 031446 005003 CLR R3 ;R3 CONTAINS PROCESSER PRIORITY LEVEL 
5843 031450 012704 177772 MOV #PIRO,R4 :R4 CONTAINS ADDRESS OF PIRQ REGISTER 
5844 031454 005014 CLR (R4) SINITIALZE REQUEST LEVEL 10 0 
5845 031456 013737 177776 000242 MOV BAPSW, AAP IROVEC +2 RETAIN MODE & REG SET ON TRAP 
5846 031464 112737 000340 000242 MOVB = #PR7, AP IROVEC +2 ASSUME LEVEL 7 ON INTERRUPT 
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000040 
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| 
SEQ 0139 | 


MOVB #PR7, Pants My yi sPRIORITY LEVEL 7 ON TRAP 
1$: MOV #2$ , QAP IRQVEC ;SET PIRQ ERROR INTERRUPT VECTOR 
ADD Sar ACTOR. MDOP IROVEC ;ADD RELOCATION FACTOR 
MOVB R3,a4PS 7SET CP PRIORITY LEVEL 
BIS RCRA) ;MAKE REQUEST AT LEVEL = TO CP LEVEL 
BMI 5$ BRANCH WHEN DONE 
nen os ;SET PIRQ INTERRUPT VECTOR TO 3$ 
ASL 
a R2, (RS) sMAKE REQUEST AT LEVEL 1 HIGHER 
2$: HLT sERROR! EITHER AN INTERRUPT OCCURED 
;WHEN RQST LEVEL = CP LEVEL (PIRQVEC)=2$% 
:OR INTERRUPT FAILED (PIRQVEC)=3$ 
3$: oe (RO) +, (RS) ;CHECK CONTENTS OF PIRQ REGISTER 
MOV @APIRQ,aASTMPO ; SAVE PIRQ 
CLR a4PIRQ 
HLT ZERROR! INCORRECT PIRQ CONTENTS 
6$: ADD #40,R3 sSET NEXT CP PRIORITY LEVEL 
BIC R2, (R4) ;LOWER LEVEL BY 1 
MOV #1$, (SP) zADJUST RETURN ADDRESS 
ADD @4F ACTOR, (SP) ;TO RETURN TO 1$ 
30$: RTT 
; TABLE OF CORRECT PIRQ REGISTER CONTENTS ON INTERRUPT 
4$: 1042 ;PIR1+PIA1 
3104 ;PIR2+PIR1+PIA2 
7146 ;PIR3+PIR2+PIR1+PIA3 
17210 sPIR4+PIR3+PIR2+PIR1+PIA4 
37252 sPIRS+PIR4+PIR3+PIR2+PIR1+PIA5 
77314 :PIR6+PIRS+PIR4+PIR3+PIR2+PIR1+PIA6 
177356 ;PIR7+PIR6+PIRS+PIR4+PIR3+PIR2+PIR1+PIA7 
5$: CLR (R4) :CLEAR PIRG REGISTER 
MOV AP IRQVEC+2,a4P I] RQVEC “RESET PIRQVEC TO HALT AT FIRQVEC+2 
CLR AAPIRQVEC+2 
CLRB a4PSW 
BIC #PR7 ,AATBITVEC+2 


DDK EEE ERK EEE EEE KEE EERE EEE RARER ERA REREAD 


CHECK MICRO-BREAK REGISTER 
3* THIS TEST SHIFTS A ‘O* BIT THRU ALL BIT POSITIONS. 


DUAR AREER KERREERARERERAERREREREREEREAAERREERERA EEE EE 


S*TEST $1 


1ST61: SCOPE 
MOVB 461,a#STSTNM ;LOAD TEST NUMBER 
MOV aesfore @4DISPLAY sDISPLAY TEST NUMBER 
MBRK: MOV HUBREAK ,R2 SET ADDRESS OF MICRO BREAK REGISTER 
MOV (R2),-(SP) :SAVE ORIG CONTENTS 
MOV #177776,RO *SET DATA PATTERN 
1$: MOV RO,R3 ‘GOING TO COMPARE DATA WITH R3 
TST @4KB11E SIS THIS A KB11-E OR KB11-EM PROCESSOR? 
BNE 5$ ‘BR IF IT IS 
BIC #177400, R3 ‘ONLY 8 BITS IN U-BREAK OF KB11-8/C 
S$: MOV RO, (R2) “LOAD REGISTER WITH PATTERN 
CMP (R2) ,R3 SAND CHECK 
BNE 3$ ZBRANCH IF INCORRECT 
2$: SEC SSET *C* 


: 
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000402 
104000 
000772 
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001202 
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000062 
001202 
140000 


000134 
000250 


001531 
177640 
006006 
172240 
006006 
140000 


177654 
177614 
172254 
172214 


000024 
090020 


000002 


900000 


032116 
032120 
177776 
064122 
054370 
000700 


000250 
000020 


000063 001202 
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CHECK MICRO@BREAK REGISTER SEQ 0140 


ROL RO SHIFT DATA 
BCS 1$ 
sie 4$ 
3$: HLT ;ERROR DATA _IN RO NOT IN UBREAK REG 
ge 2$ CONTINUE TEST 
4$: MOV (SP)+, (R2) RESTORE ORIG UBREAK CONTENTS 
TrItititi titi tiiti titi tititiitititititittittit tite titi tt ttt 
Z*TEST 62 CHECK MFPI/MTPI INSTRUCTIONS 
J LRA ERR REE KEE EERRERRERREE RARER HH 
S162: SCOPE 
MOVB 4#62,a#$TSTNM ;LOAD TEST NUMBER 
MOV § a#STSTNM, a#DISPLAY :;DISPLAY TEST NUMBER 
MPI: BIT #UM, dAPSW ;KERNEL MODE? 
BE Q cP YES EXIT TEST 
MOV PC,-(SP) 
ADD #5$-., (SP) 
MOV (SP)+,a4MMVEC SET MEM MGMT ABORT VECTOR 
CLR ish} CLEAR CHECK WORD 
MOV _—-R3,=(SP) ;PUT ADDRESS OF CHECK WORD ON THE STACK 
TSTB = @AMMON :CHECK IF MEM MGMT IS ENABLED 
BEQ $ :BRANCH IF OFF 
MOV @FUIPARO , AAUIPARG ;SET UP USER PAGE ADDR. REG. 
MOV #6006, @#UIPDR6 SET USER PAGE DESC REG R/W UP 6 PAGES 
MOV AMS IPARO, a#'SIPARG 
MOV #6006, @#SIPDR6 SET SUPER PAGE DESC. REG. 
108: ADD #140000, SP SET CURRENT MODE'S STACK POINTER 
NO! 
1$: MOV pC .~ (SP) 
ADD #3$-., (SP) 
MOV (SP) 7QRIOTVEC ;SET IOT TRAP VECTOR 
10T TRAP TO 3$ BELOW 
Inc 2 (SP) INCREMENT CHECK WORD 
4$: HLT ;ERROR! MFPI,MTPI FAILURE-FOR BETTER 
BR 6$ ISOLATION SUGGEST RUNNING MFPI DIAG. DCKTD/E 
3$: NOP :PSW=KERNEL MODE ,PREV USER OR SUPER MODE 
MFP] SP GET PREV. MODES STACK POINTE 
MFPI  a(SP)+ :GET DATA (AN ADDRESS) ON PREV MODE'S STACK 
MFPI a SP) GET DATA (20) FROM PREV MODES ADDRESS 
NOP :SPACE AND PUSH ONTO KERNEL STACK 
BNE 4$ [ERROR IF BRANCH TAKEN! SHOULD HAVE A ZERO ON THE STACK 
COM (SP) COMPLEMENT OPERAND 
MTP]  a(SP)+ :POP_OPERAND OFF KERNEL STACK AND MOVE 
:1T TO PREV MODE'S SPAC 
RTI RETURN TO INST FOLLOWING IOT ABOVE 
5$: HLT ERROR! MEMORY MANG. ABORT 
CLRB = @#PSW SET PRIORITY LEVEL BACK TO 0 
6$: MOV #KTABRT ,aAMMVEC RESTORE VECTOR 
MOV §- #$SCOPE ; a#IOTVEC 
MOV - ASUPSTK. SP ;RESTORE STACK POINTER 


PETITIIII TTT TI TTT TTT TTT TT TTT ITITT TTL LLL LLL LLL 


*TEST 63 CHECK ILLEGAL 4ALT 
TODO ISOS IUISIISIOINIOIOIDIOIDIOIUIOIOISIOUIUIDIUIOIIDIDIOIDIDUIDIIIOIDIDIUIDISOIDG IOSD 
TST63: SCOPE 

MOVB #63, Q04$TSTNM ;LOAD TEST NUMBER 
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013737 
010746 
062716 
011637 
012637 
000000 
104000 
000404 
010716 
062716 
000002 


012737 


012767 


000004 
112737 
013737 


062737 


001202 


177766 


000064 
001202 
177776 


177776 


177776 


000012 
043764 


0600001 


000065 
001202 


001540 
032366 


000030 


177570 
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000010 


001202 
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146770 


001202 
177570 


001212 
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CHECK ILLEGAi HALT 


MOV Revatons” @4D I SPLAY 


HALT1: MOV 
ADD AT ay SP) 
MOV (SP) , AERRVEC 
MOV (SP) +, AARESVEC 
HALT 

1$ HLT 
BR 3$ 

2$: MOV PC, (SP) 
ADD #3$-., (SP) 
RTI 

3$: MOV MERPRT , AAERRVEC 
MOV #RESERR, @ARESVEC 
CLRB = a#PSW 
CL @#CPUERR 


id gad TEST NUMBER 
GET CURRENT PC 


;SET ERROR TRAP VECTOR TO 2$ BE 

; LOAD RESERVED INST TRAP vector” 011/40) 

; SHOULD TRAP TO 4 IN USER/SUPER MODE 

SERROR! HALT ABOVE FAILED IN USER/SUPER MODE 


REPLACE RETURN er Bah 
ZADDRESS OF 3$ BE 
SRETURN (TO 3$) 


RESTORE ERROR TRAP VECTOR 


SL AREER ERR EERE AERA REE REE REE EREKE AREER ARR ER RE 


s*TEST 64 CHECK RESET IN SUPER/USER MODE 


_weeS Se eRPRRRRRRARRSERSARAAARARRERRASAR ARRAS SERRE RAR RSE RARRRAS ARS S ESS SSD 


T5164: SCOPE 
MOVB  #64,a4$TSTNM 


MOV 
RESET1: SCC 
MOV @4PSW,RO 


SCC 
RESET 
CMP a4PSw,RO 
BEQ +4 
HLT 
MOV RO, a4PSW 
ENDCP: 
RELE6: SCOPE 
MOV PC,R2 
ADD #12,R2 
MRELOC PC 


@4S$TSTNM,@ADISPLAY 


sLOAD TEST NUMBER 
;;DISPLAY TEST NUMBER 


;GET CURRENT PSW 


;CHECK THAT PSW UNCHANGED BY RESET ABOVE 


;ERROR! RESET CLEARED MODE BITS IN PSW 
;RESTORE PSW (FOR ERROR) 


:GO RELOCATE PROGRAM CODE 
REL66: .WORD OQ 
36666666666666 LAST ADDRESS OF CODE TO BE RELOCATED 66666666666 


WEARS SAAS ARASLARALASALESARARS SASS ARASARS SSAA R RRR RAR RRR REAR RS SSS DD: 


S*TEST 65 TEST STACK LIMIT REGISTER 


CL AAA REAR EKKKEEKEEE AREER ERR KEE RRR ER ERE 


3:D0 1 ITERATION 


MOV #1,$TIMES 
TST65: SCOPE 
MOVB #65, 


a4$TS 
MOV SesiSin, aNDISPLAY 


LOAD TEST NUMBER 
DISPLAY TEST NUMBER 


.SBITL START OF SECTION 7 
g270777777777? FIRST ADDRESS TO BE RELOCATED 777777777 


RV) 
RO @¥FRSTAD 
PC,RO 


#.-R 

RO. a#FACTOR 
PC’ a#SLPERR 
#30, aASLPERR 


iG 
:RO CONTAINS THE ADDRESS OF REL? 


GET CURRENT P 

; SUBTRACT RELOCATION FACTOR 
SAVE RELOCATION FACTOR 

>SET LOOP ADDRESS 


SADJUST 


SEQ 0141 
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START OF SECTION 


MOV @4$SLPERR ,a#SLPADR 


TSTB @ANE XE C 


BEQ +6 
JMP RELE7 
:THIS TEST SHIFTS A ‘1" BIT THROUGH ALL 
MOV ASTKLMT ,R2 
CLR (R2)+ 
BIT #20, (R2) 
BNE 101$ 
BIS #340, (R2) 
MOV #400,RO 
1$: MOV RO,-(R2) 
CMP (R2)+,RO 
BEQ 2$ 
HLT 
23: ASL RO 
BCC 1$ 
CLR -(R2) 


BR IF TEST CODF TO BE EXECUTED 


BIT POSITIONS 


;GET ADDRESS OF STACK LIM REG 
SCLEAR STACK LIMIT REG 
sEXIT TEST IF ‘T* BIT IS SET 


SET PRIORITY LEVEL 7 TO PREVENT 
ANY INTERRUPTS FROM OCCURRING 
SET CHECK DATA 

sMOVE TO STACK LIMIT REG 

AND CHECK RESULT 


ERROR! STACK LIMIT DID NOT 
+e —_ CORRECT RESULT 


:1S_IN RO 

SHIFT °1° BIT LEFT 

;LOOP UNTIL 1 BIT SHIFTS OUT 
;CLEAR STACK LIMIT REG 


THIS TEST CHECKS THAT A PROPER ‘RED* ZONE VIOLATION OCCURS, NOTE THAT 
NO ‘RED ZONE* VIOLATION WILL OCCUR IF IN USER/SUPER MODES. 
;A RED ZONE VIOLATION PUSHES THE CURRENT PSW,PC ON A STACK AT 2 AND 0 


SEQ 0142 
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am ea eee 


SEQ 0143 


1s THE INST= 
GET CURRENT PC 


ADD gu$-. (SP) sFORM ADDRESS OF 4$ BELOW 
MOV (SP) +. @#ERRVEC ‘SET ERROR TRAP VECTOR TO 4s BELOW 
MOV aaePSw, AERRVEC +2 ‘RETAIN CURRENT STATUS ON T 
MOV PC, (R2) :SET STACK LIMIT TO CURRENT 7 
MOV (R2),SP ‘AND STACK PIR = STACK LIMIT REG 
MOV SP,R SSAVE STACK PTR 
MOV 336(R3) RG ;SAVE MEMORY LOC CONTENTS 
‘AT "RED ZONE’ BOUNDAR 
BIT wm, aAPSU “BRANCH IF IN KERNEL MODE 
MOV R4, 336(SP) :SHOULD NOT CAUSE TRAP 
BR 100$ 
208: CLR 336 (SP) ;SHOULD CAUSE *RED ZONE* TRAP 
3$: MOV #S5UPSTK, SP RESTORE THE STACK 
HLT TERROR! FAILED TO TRAP 
4$: BIT #UM, a2 :CHECK IF TRAPPED WHEN IN USER 
:/SUPER MODES (2 CONTAINS OLD PSw) 
BNE 99$ *GO TO ERROR CALL 
MOV SP,RO ‘STACK PTR SHOULD = 0 
BNE 99$ :GO TO ERROR CALL IF NOT O 
CMP 336(R3) RG =CHECK THAT INST WAS ABORTED 
BNE 99$ ‘GO REPORT ERRPR 
5$: CLR (R2) > CLEAR STACK LIMIT REG 
MOV PCRS ‘GET CURRENT PC 
ADD #3$-. RS [FORM ADDRESS OF 3% ABOVE 
CMP RS, (SP) =CHECK THAT RETURN PC IS ON 
‘THE STACK (AT 0) 
BEQ 100$ TEXIT TEST 
; ERROR 
99$: CLR (R2) iCLEAR STACK LIMIT REG 
MOV R4, 336(R3) RESTORE MEM LOCATION 
MOV #SUPSTK, SP “SET STACK PTR 
HLT ERROR! 
100$: MOV R4, 336(R3) [RESTORE MEM LOCATION 
CLR (R2)+ “CLEAR STACK LIM REG 
MOV #SUPSTK, SP ‘SET STACK PTR 
BIC #340,(R ‘SET PRIORITY LEVEL BACK TO 0 
MOV HERPRT , @AERRVEC SRESTORE ERROR TRAP VECTOR 
MOV @APSW, AERRVEC +2 
MOVB = #PR7 , AMERRVEC+2 
BIC #B1T4, AHERRVEC+2 
amy CLR a4#CPUERR =CLEAR ERROR REG 
MER RRREBBABBOSOBRESERALALALASLASLESCSLSSES EEE SESE RSE RRR RRR RR RRR RRR RRR RRR 
S*TEST 66 MEMORY MANAGEMENT REGISTER TESTS 
te PDR TEST - THIS TEST WRITES 64. RANDOM #'S INTO EACH PDR REGISTER 
* NOTE: IF MEM MGMT iS ENABLED ONLY PDR/PAR PAIRS 4-6 ARE TESTED. 
Sf SAAAAAAAAAAAAAAAAAAAARAREAARAARAAHARAHAKAARARAAAAAAKKeReRA KAKA ee 
15166: SCOPE 


B i2 
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CEQKCD.P11 04-OCT-79 08:55 T66 MEMORY MANAGEMENT REGISTER TESTS SEQ 0144 
60% 032702 112737 000066 001202 MOVB #66, a"STSTNM D TEST NUMBER 
6097 032710 013737 001202 177570 MOV a4$TSTNM, a#DISPLAY SO OISPLAY TEST NUMBER 
6099 032716 012702 033150 KTPDR: MOV #PDRTBL .R2 SET TABLE ADDRESS OF PDR'S 
6100 032722 012705 100360 MOV #100360,R5 :SET BIT 
6101 032726 012200 1$: MOV (R2)+,RO :GET PDR ADDRESS 
6102 032730 00143 BEQ 100$ [EXIT ON 'O’ TERMINATOR 
6103 032732 012716 000010 2$: MOV #8. , (SP) [SET LOOP COUNT (FOR 8 REGS) 
61064 032 105737 001531 TSTB @4MMON ;BRANCH IF MEM MGMT DISABLED 
6105 032742 001404 BEQ 3$ 
6106 032744 062700 000010 ADD #10,R0 :SET RO TO PDR4 
6107 032750 012716 000003 MOV #3, (SP) AND LIMIT TO TEST 3 PDRS 
6108 032754 012703 000040 3$: MOV #32. ,R3 “SET DATA COUNT 
6109 032760 005004 CLR RS ; INITIALIZE DATA TO BE WRITTEN 
6110 032762 040504 4$: BIC RS.R4 ;CLEAR NON-SETTABLE BITS 
6111 032764 010410 MOV R4. (RO) [WRITE INTO PDR 
6112 0327 021004 CMP (RO) ,RS ‘AND CHECK DATA READ BACK 
6113 032770 001013 BNE 99$ *GO TO ERROR CALL 
6114 032772 005104 C RS ; COMPLEMENT DATA 
6115 032774 040504 BIC R5 RS [CLEAR NON-SETTABLE BITS 
6116 032776 010410 < MOV R4, (RO) WRITE COMPLEMENT DATA INTO PDR 
6117 033000 021004 CMP (RO) RS TAND CHECK 
6118 033002 001006 BNE 99$ 'GO TO ERROR CALL 
6119 033004 060104 ADD R1,R4 ZSTEP DATA 
6120 033006 077313 508 R3,4$ 
6121 033010 005020 5$: CLR (RO) + ;STEP TO NEXT REGISTER 
6122 033012 005316 DEC (SP) ;DECREMENT REGISTER COUNT 
6123 033014 001357 BNE 3$ 
else 033016 000743 BR 1$ :GET NEXT SET OF 8 REGISTERS 
6126 033020 104000 99$: HLT sERROR! INCORRECT DATA READ 
6127 :BACK FROM PDR. ADDRESS OF 
6128 :PDR IS IN RO, DATA IS IN R4 
6129 033022 000772 BR S$ [STEP TO NEXT REGISTER 
6130 023024 100$: 
6131 VCP ERBASAASZAASSAALASLAASSAEASRSESESSSSESES SSR SAAR ERRARSASR ARRAS SESS SS SS 
6132 Se TEST 67 PAR TEST 
6133 te PAR TEST - THIS TEST WRITES 64. COMPLEMENTING RANDOM #'S INTO EACH PAR. 
6134 MME PAABRAAAAAALASAASLAALALALASASSASSESRS SESS SSSR RSS SAAR EASAR ERR SSR SALAS ES SG 
6135 033024 000004 TST67: SCOPE 
6136 033026 112737 000067 001202 MOVB #67, a4STSTNM ; LOAD pres! NUMBER 
6137 033034 013737 001202 177570 MOV a#$TSTNM, a#D i SPLAY DISPLAY TEST NUMBE 
6138 033042 012702 033166 KTPAR: MOV #PARTBL, R2 ;GET TABI E ADDRESS OF PAR'S 
6139 033046 005005 CLR RS 
6140 033050 012200 1$: MOV (R2)+,RO + s+ , a ADDRESS 
6141 033052 001435 BEQ 100$ “EXIT ON 'O* TERMINATOR 
6142 033054 012716 000010 2s: MOV #8., (SP) eT " bor COUNT (FOR 8 REGS.) 
6143 03 105737 001531 TSTB — @AMMON “BRANCH IF MEM MGMT DISABLED 
6144 033064 001404 BEQ 3$ 
6145 03 2700 000010 ADD #10,RO :SET RO TO PAR 
6146 033072 012716 000003 MOV #3 (SP) ‘AND LIMIT TEST TO 3 PARS 
6147 033076 012703 000040 3$: MOV #32. “R3 *SET DATA COUNT 
6148 033102 005004 CLR S INITIALIZE DATA 
6149 033104 040504 4$: BIC NS. RS ; CLEAR py pa BITS 
6150 033106 010410 MOV RZ. (RO) *WRITE INTO P 
6151 033110 021004 CMP (RO) RS SAND CHECK 





QkKC=D PDP 11/70-74MP CPU EXERCISER 


DE 
CEQKCD.P 


033142 


033144 
033146 
033146 


033150 


0 
033202 


013746 


04-OCT-79 08:55 


000070 001202 


id 202 
1531 


177570 
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16? PAR TEST 


BNE 99$ AKE ERROR EXIT 
COM R4 : COMPLEMENT DATA 
BIC R5,R4 ;CLEAR NON-SETTABLE BITS 
MOV R4,<RO) [WRITE COMPLEMENT DATA 
CMP (RO) RS ZAND_ CHECK 
BNE 99$ ; TAKE ERROR EXIT 
ADD R1,R4 ZSTEP DATA 
SOB R3,4$ LOOP UNTIL FINISHED 

5$: CLR (RO)+ 
DEC (SP) ;DECREMENT REGISTER COUNT 
BNE 3$ ;BRANCH IF 8 REGS NOT DONE 
BR 1$ 

99$: HLT ERROR! INCORRECT DATA READ BACK 


FROM PAR. ADDRESS OF PAR IS IN 
RC, DATA IS IN R4 
5$ ;DO NEXT REGISTER 


100$: 

BR TST70 3;:GO TO NEXT TEST 
; TABLES FOR PDR & PAR TESTS ABOVE 
PDRIBL: .WORD KIPDRO 

«WORD UIPDRO 

.~ WORD IPDRO ;CHANGED TO ‘O° IF 11/40 

WORD KDPDRO 

WORD UDPDRO 

~ WORD SDPDRO 

~ WORD 0 : TERMINATOR 
PARTBL: .WORD KIPARO 

-WORD  UIPARO 

. WORD SIPARO ;CHANGED TO ‘O° IF 11/40 

- WORD KDPARO 

- WORD UDPARO 

WORD SDPARO 

- WORD 0 7 TERMINATOR 
ME TTITILITILELILELIELELLT LLL LILLE LLL LLL LLL LLL LLL LLL 
Se TEST 70 CHECK KT ABORT LOGIC 
* THIS TEST CHECKS KT ABORT LOGIC. TEST CREATES AN ABORT CONDITION 
:* AND INSURES THAT ABORT IS TAKEN PROPERLY. NOTE: TEST IS EXECUTED ONLY 
:* IF TEST IS ENTERED WITH MEM MGMT ENABLED. 
TSAO IOI IOI IEIEISIOIIIOIIOIIOIIIIOIIUIOIIOIIOIUIOIOIIDIOIIDIOIIOIDIDISUOIIOIUOIIUOINDIODI II 
TST70: SCOPE 

MOVB #70, a4STSTNM LOAD TEST NUMBER 

MOV @4S$7TS1NM,@4DISPLAY DISPLAY TEST NUMBER 
KTABT: td an ;BRANCH IF MEM MGMT DISABLED 

CLR @4K IPARS ;SET UP MEM x ¢ REGISTERS 

CLR @FK IPDRS ;TO ABORT IF A MEMORY 

CiLR @AUIPARS SREFERENCE IS MADE 10 

CLR Q@FUIPDRS ; ADDRESSES (VIRTUAL) BETWEEN 


1$: MOV @AMMVEC (SP) AVE MEM MGMT VECTOR 
MOV QAMMVEC +2 ,-(SP) ‘AND PRIORITY 


SEQ 0145 
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CHECK KT ABORT LOGIC 


MOV PC,=(SP) :SET MEM MGMT 
ADD #4$-., (SP) ‘VECTOR TO 4$ BELOW 
MOV (SP) +; a#MMVEC 
MOV aePSW, aAMMVEC +2 
CLR RO ZCLEAR ABORT INDICATOR 
MOV :SET R2 AND R3 NOTE: 
MOV #160000, R3 ;THE REF VIA R3 CAUSES THE 
2$: MOV -(R2),(R3)+ T 
3$: st RO, “BRANCH IF THE ABORT OCCURRED 
mt . 
HLT ;REPORT ERROR 
BR 100$ 
ABORT HERE 
$: MOV aAPSw RO :SRO SHOULD CONTAIN 
S RO :CAUSE FOR ABORT 
ASR RO ZALSO WHICH SEGMENT 
BIC #177637,R0 [WAS IN USE WHEN ABORT 
ADD #100011.R0 [OCCURRED 
CMP RO, a#SRO 
BNE 09$ 
MOV #2$,R0 :GET ADDRESS OF INST 
CMP RO, a#SR2 “THAT ABORTED 
BNE 99$ 
MOV #362,R0 
CMPB  —s- RO, a#’SR1 :SR1 CONTAINS REGISTER 
BNE 99$ “MODIFICATIONS MADE 
MOV #23,R0 
CMPB  ~—s-. RO, @#’SR1+1 
BNE $ 
MOV #2$,R0 
5$: TST (RO) + :RO=ADDRESS OF INST FOLLOWING ABORT 
CMP RO, (SP) + (3$) 
BNE 99$ 
RTI RETURN 
ENTER HERE ON ERROR 
HLT :REPORT ERROR 
MOV PC, (SP) 
ADD #3$-., (SP) 
RTI : RETURN 
100$: MOV (SP)+,a4MMVEC+2 =RESTORE ABORT VECTOR 
MOV (SP)+,a4MMVEC  :& PRIORIT 
ord V #1, a¥SRO *CLEAR ERROR CONDITIONS 
K . 
'MOARAAASAAASAASSAASASAASLSLASLSAASASES ASSESSES ESSE SERS RRA RRR ARRAS SSSR SRR RRS SE SG 
jSTEST 71 MAPPING REGISTER TESTS 
THIS TEST LOADS RANDOM #°S INTO EACH MAPPING REGISTER 
MABBBBSAABAABSAASAASLALALESLALALAELES SSE SEES ESE SSSR SESS ARR RRS RSS RRR SESE SG 
78171: SCOPE 
MOVB #71, a4STSTNM sLOAD TEST NUMBER 
MOV a#$TSTNM, a#DISPLAY *:DISPLAY TEST NUMBER 
BIT #BITS,a#MMR3 1S MAP ON? 
BNE MAPT [BRANCH IF YES 
MAPTST: MOV #MAPLO,RO ‘SET ADRS OF FIRST MAP REGISTER 
MOV #SUPSTK, SP “SETUP THE SP 
MOV #1, (SP) “SET BIT MASK FOR MAPLO <15-(1> 
MOV #177700,R2 “AND ALSO FOR MAPHO <21-16> 


SEQ 0146 
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DE Qk 
CEQKCD.P11 04-OCT-79 08:55 MAPPING REGISTER TESTS SEQ 0147 
6264 033530 012703 000040 1$: MOV #32. ,R3 ;SET DATA COUNT 
6265 033534 005005 CLR ib) :SET os Hi DATA 
6266 033536 010504 2$: MOV RS,R4 -GET DAT 
6267 033540 041604 BIC (SP) ,R4 = CLEAR UNUSED BITS 
6268 033542 010410 MOV R4, (RO) > LOAD DATA INTO MAPLO <15-01> 
6269 033544 021004 CMP (RO) RS + CHE CK K DATA 
6270 033546 001032 BNE 99$ sBRANCH IF INCORRECT 
6271 033550 005105 COM RS ; COMPLEMENT TEST DATA 
6272 033552 010504 MOV RS,R4 ;GET TEST DATA 
6273 033554 041604 BIC (SP) RG [CLEAR UNUSED BITS 
6274 033556 010410 MOV R46, (RO) ;LOAD COMPLEMENT DATA 
6275 033560 021004 CMP (RO) RS zAND CHECK 
6276 033562 001024 BNE 99$ 
6277 033564 005720 TST (RO)+ :STEP TO NEXT REGISTER 
6278 033566 010504 MOV R5,R4 GET COMPLEMENT TEST DATA 
6279 033570 040204 BIC R2,R4 7CLEAR UNUSED BITS 
6280 033572 010410 MOV R4, (RO) LOAD TEST DATA INTO MAPHO <21-16> 
6281 033574 021004 CMP (RO) RS ZAND CHECK 
6282 033576 001016 BNE 99$ 
6283 033600 005105 COM RS COMPLEMENT TEST DATA 
6284 033602 010504 V R5,R4 :GET TEST DATA 
6285 033604 040204 BIC R2,R4 CLEAR UNUSED BITS 
6286 033606 010410 MOV R4, (RO) LOAD TEST DATA 
6287 033610 021004 CMP (RO) RS [AND CHECK 
6288 033612 001010 BNE 99$ 
6289 033614 060705 ADD PC,R5 FORM NEXT TEST DATA 
6290 033616 005740 TST -(RO) RESET PTR TO REGISTER <15-01> 
6291 033620 077332 SOB R3,2$ sAND TEST UNTIL ALL #°S USED 
6292 033622 022020 CMP (RO) +, (RO) + STEP TO NEXT REGISTER PAIR 
6293 033624 022700 170400 CMP #MAPLO+128.,RO ;:BRANCH IF NOT LAST PAIR 
6294 033630 001337 BNE 1$ 
6295 033632 000401 BR MAPTWO 
6297 033634 104000 99$: HLT ERROR! INCORRECT DATA READ BACK 
6298 FROM MAP REG. ADRS OF REGISTER 15 
6299 IN RO, GOOD DATA IS IN R4 
6300 033636 005737 001532 MAPTWO: TST avav QV OR AUTO-ACCEPT? 
6301 033642 001411 BEQ RELE7 sBRANCH IF NO 
6302 033644 012737 020000 170204 MOV #20000, @4MAPL1 :SET MAP 1 INCASE ACT11 
6303 033652 005037 170206 CLR @AMAPH 1 
6304 033656 005037 170200 CLR @AMAPLO 
6305 033662 005037 170202 CLR aAMAPHO 
6306 633666 000004 RELE7: SCOPE 
6307 033670 010702 MOV C,R2 
6308 033672 062702 000012 ADD Wie R R2 
6309 033676 012707 043764 MOV #RELOC PC :GO RELOCATE PROGRAM CODE 
6310 033702 000000 REL77: .WORD O 
631 37777777777777 LAST ADDRESS OF CODE TO BE RELOCATED 77777777777 
6313 LTA E ARERR EERE REAR EERE 
ont *TEST 72 FLOATING POINT TEST 1 
6316 : THIS TEST TAKES TWO RANDOM NUMBERS (A AND B) AND 
6317 - COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 
6318 * EACH SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOW: 
6319 * SECT (A+B) ««2= Are2+2eAaR+Run? 


C=D PDP MT vartore C 


DE Qk 
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004767 
174137 
013737 


013737 


004 
174102 
013737 


172437 


174103 


Pu EX 
08:55 


001540 
033750 


001414 


002026 


ERCISER 


145414 


001202 
177570 
001326 


001414 
001412 


001412 


001262 


001412 
001414 


001416 


001412 
001414 


MACY11 30A(1052) 


172 


TST72: 
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FLOATING POINT TEST 1 


SEC 
SEC 


MOV 


T2 
13 


SCOPE 
MOVB 


MOV 


SBTTL 


— 


A/B*B=A 
SERRATE EERE RENE EERE ER EERE RRR EERE ERE R ERR 

#1,$TIMES 7:D0 1 ITERATION 

#72, QASTSTNM ;LOAD TEST NUMBER 

@4STSTNM AAD ISPLAY ;zDISPLAY TEST NUMBER 

#1, @ASTIMES ;SET ITTERATIONS TO 17 


START OF SECTION 8 


8888888688668 PCR TO BE —- 888888888 


100$: 


[NOW DO 
:DO THE 


=NOW DO 


THE 
ArA 


Ld 


;GET PC 
[RO CONTAINS THE ADDRESS OF REL8 


(RO) 
RO, a#FRSTAD 3 SAVE 
PC,RO ;GET CURRENT PC 
#. ,RO ; SUBTRACT RELOCATION FACTOR 
RO, @#F ACTOR ;SAVE RELOCATION FACTOR 


PC ,@#$LPERR ;SET LOOP ADDRESS 
#30, @4$LPERR sADJUST 
@FSLPERR , aA#SLPADR 
—— BR IF TEST CODE TO BE EXECUTED 
.+ 
RELE8 
#FPOPT ,@#OPT.CP ;FLOATING POINT AVAILABLE? 
100$ BRANCH IF YES 
REL88+2 
PC ,a@4FLTSGL :GET RANDOM OPERANDS 
INIT FPS 
@4STMPO ACT ;LOAD A OPERAND 
@F$TMP2,ACO ;LOAD B OPERAND 


@4$SREGO,AASAC1 = ;SETUP EXTENDED 
@ASREG1,@ASACO =; EXPONENTS 


PC,FLTADD PERFORM THE ADD 
ACI ,ACO SETUP ACO TO 
@AS$AC1,a4$ACO ;PERFORM THE SQUARE 
PC,FLTMPY :DO THE MULTIPLY 
AC1 ,@#$TMP4 SAVE RESULT 


Q#$AC1,a#$REG2 AND SOFTWARE EXP 


RIGHT HAND SIDE OF THE EQUATION 
FIRST 


B*B 


@#SREGO,A4SACO ;GET EXT EXPONENT 


@4$TMPO ACO ;LOAD OPERAND A 
@4$SACO, a#$AC SET OPERAND B EXT EXPONENT 
ACO,AC1 ;LOAD B OPERAND 

PC, FLTMPY sEXECUTE THE MULTIPLY 
AC1,AC2 SAVE RESULT 

@ASACT ,@ASAL 2 

FS 1TMP2 ,ACO ;LOAD B OPERAND 
ACO,AC1 

BASREG],@ASACO AND EXT EXPONENT 
AASACO,a#$A™ | 

PC,FLTMPY :DO THE MULTIPLY 


AC1,AC3 SAVE THE RESULT 


SEQ 0148 


G 12 
046-00T=79 09:00 PAGE 
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CEQKCD.P11 04-0CT=79 08:55 START OF SECTION 8 SEQ 0149 
£379 013737 001414 001420 @FSAC1 , BASAL 3 
6378 sNOW DO THE 2*BeA 
6379 034210 012701 001306 MOV #$STMP2,R1 
6380 034214 172411 LDF (R71) ,ACO ;LOAD THE 8 OPERAND 
$381 0346216 172541 LDF =(R1) ,AC1 LOAD THE A OPERAND 
6382 034220 013737 001260 001412 MOV @FVSREG1,@#$ACO = ;=AND THE EXT EXPONENTS 
6383 034226 013737 001256 001414 MOV @ASRE GO, a#$AC | 
6384 034234 767 001766 JSR PC,FLIMPY O THE MULTIPL 
6385 034240 172427 i LDF #*040000 ,ACO Acai TO MULTIPLY BY TwO 
6386 034044 010737 001412 MOV = #2, aw$ACO 
art 034252 004767 001750 JSR PC,FLTMPY :D0 THE MULTIPLY 
6389 NOW SUM THE RESULTS 
6390 034256 013737 001420 001412 MOV BFSAC3, aFSACO 
6391 034264 172403 LDF AC3,ACO :GET RESULT OF B*8 
6392 0342 04767 002004 JSR PC,FLTADD sADD THE RESULT 
6393 034272 172402 LDF AC2,ACO :GET RESULT OF A*A 
6394 034274 013737 001416 001412 MOV C2, a#$AC0 
6395 034302 004767 001770 JSR PC ,FLTADD sADD_THIS RESULT 
6396 034306 174137 001316 STF AC] ,@#$TMP6 zSAVE FINAL RESULT 
oe 034312 013737 001414 001264 MOV a¥$AC1 , a#SREG3 
6399 NOW CHECK BOTH SIDES OF THE EQUATION 
6400 :CALCULATE THE NUMBER OF CORRECT BiTS 
6401 zPUT LARGEST EXPONENT OF A®*2 OR Be*2 IN $AC2 
6402 034320 023737 001416 001420 CMP BSAC 2, BASACS 
6403 034326 002003 BGE 1$ ;BRANCH IF $AC2 Al READY HAS LARGEST 
6404 034330 013737 001420 001416 MOV @ASAC3,A4$AC2 =; SAC3._ WAS LARGER 
6405 034336 163737 001414 001416 1$: SUB @#SAC1,a4#$AC2 NOW CALCULATE NUMBER 
6406 034344 182737 000023 001416 SUB #19. ,@#SAC2 :OF CORRECT BITS WITHIN 2 
6407 034352 005437 001416 NEG @ASAC2 :MAKE RESULT POSIT 
6408 034356 172437 001312 LDF OAS TMPS ACO ;LOAD RESULT OF LEFT HAND SIDE 
6409 034362 013737 001262 001412 MOV @ASREG2 , AASACO » AND EXTENDED EXPONENT 
6410 034370 767 001676 JSR PC,FLTSUB ; SUBTRACT TO SEE HOW CLOSE THEY — 
6411 034374 163737 12 001414 SUB aW$REG3,a#$AC1 GET DIFFERENCE IN EXT EXPONENTS 
6412 ZACTUAL EXP'S ARE EQUAL TO 200 
6413 034402 BPL 3$ SENSURE RESULT IS POSITIVE 
6414 0344 005437 001414 NEG a$ACl 
6415 034410 023737 1416 001414 3$: CMP @*SAC2,AASAC1 =; ANSWERS WITHIN ALLOWABLE NUMBER? 
6416 034416 003401 BLE SECT2 :BRANCH IF YES 
6417 034420 104014 4$: ERROR 14 RESULTS ARE WRONG 
6478 OTT TIT TIT t TTI T I TTT t ttt ttt t itt ett ett tt tie teeter ee 
“nr 034422 170127 000000 - ec i a LDFPS 40 
6421 034426 172537 001302 LDF @ASTMPO ACT ;LOAD A OPERAND 
6422 034432 172437 001306 LDF @ASTMP2 ACO ;LOAD B OPERAND 
6423 034436 013737 601256 001414 MOV @*SREGO, a#SAC1 
6424 034444 013737 001260 001412 MOV @ASREG1 , AASACO 
6425 034452 004767 001620 JSR PC,FLTADD sADD_THEM 
6426 034456 174102 STF AC1,AC2 :SAVE_IN AC2 | 
6427 034460 013737 001414 001416 MOV @WSAC1,a#$AC2 AND EXT EXPONENT 
6428 ;NOW DO THE A-B | 
6429 034466 172537 001302 LDF @ASTMPO ACT D_OPERAND A 
6430 034472 013737 001256 001414 MOV @ASREGO, A#SAC 1 “AND EXT ta 
6431 034500 172437 001306 LDF a*$TMP2 , ACO ;LOAD OPERAND B 
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035022 


04-0CT 


013737 
004767 
172402 
013737 
004767 
174137 
013737 


172437 


004767 
013757 
172402 
013737 
004767 
174137 
013737 


023737 


174137 
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001416 
001420 


001412 


001412 


001262 


001412 
001414 


001416 


001412 
001414 
001420 


001412 
001264 
001420 
001416 


001416 
001416 


001412 
001414 


001414 


001414 
001412 


MACY71 30A(1052) 
START OF SECTION 


MOV @ASREG , BASACO 
JSR PC.FLTSUB 
sNOw DO (A+B) *(A-B) 
LDF 7 


MOV QASAC1 , AASREGZ 
;NOW DO THE B*B 


LDF 4S TMP2 ACO 
MOV ot ws aati 


C1,AC2 
MOV @4#$AC1 ,AASAC2 
;NOW DO THE A®A 
LDF a4$TMPO ACO 


MOV @#$SREGO, BASACO 

LDF ACO,AC1 

MOV SACO, AASAC 

JSR PC,FLTIMPY 

MOV ar$AC1 ,a#SAC3 

NOW DO At*2-Be42 

LDF AC2,ACO 

MOV BSAC? AASACO 

JSR PC,FLTSUB 

STF AC1, a#$TMP6 
@ASAC 1, a4S$R 


MOV 
:NOW COMPUTE THE RESULTS 


H 12 
eo 09:00 PAGE 128 


; SUBTRACT THEM 

GET RESULT OF (A+B) 
FORM THE PRODUCT 
SAVE RESULT 

;AND EXT EXPONENT 


;LOAD OPERAND 8 


7B OPERAND IS IN ACO 
: AND EXT EXPONENT 


“SAVE RESULT IN AC2 


;LOAD OPERAND A 


sEMECUTE THE MULTIPLY 
SAVE EXT EXPO OF A*A 


:GET BB 
3A*A IN ACT 
;SAVE IN MEMORY 


[CALCULATE THE NUMBER OF CORRECT BITS 
aM$SAC2, 


DETERMINE WHICH ao IS LARGER 
SBRANCH IF AC2 LAR 
;PUT LARGEST IN aco 


7GET LEFT HAND SIDE 


SUBTRACT TO SEE HOW CLOSE THEY ARE 
:SUB EXT EXPONENTS 
SACTUAL EXPONENTS ARE EQUAL 


[MAKE SURE RESULT IS POSITIVE 


RESULTS WITHIN RANGE ALLOWED? 
[BRANCH IF YES 
RESULTS WRONG 


SL AEAAARAEAEAREAKERAAAEAEARARERRERRAERAEHARAARARAEREARRKAEAKKRRAE TAREE 


CMP @FSAC 3 
BGE 2$ 
MOV ASAC3 , AASAC2 
e$: SUB ASAC1 , BASAC2 
SUB #21. ,@#$AC2 
NEG aF$AC2 
LDF OFS TMPS ,ACO 
MOV prope ees Yat 
JSR PC F 
SUB BrEREGS. VBWSACT 
BPL 1$ 
NEG aF$AC} 
1$: CMP OASAC2, AMSAC 
BLE SECTS 
ERROR 14 
SECT3: LDF 4S TMPO ACI 
LDF a4$STMP2 ACO 
MOV @F$SREGO , AASAC 
MOV @ASREGT , AFSACO 


JSR PC,FLTDIV 
JSR PC,FLTMPY 
STF AC) ,@#$TMP4 


;LOAD OPERAND A 
;AND OPERAND B 


:GO DIVIDE THEM 
sMULTIPLY RESULT BY B 
SAVE RESULT 


SEQ 0150 


NMRNNWW um 
Vn=O— Wx 
AAaONM & 

wn 
—~ 
ws 


& 
(= 
Ww 
xz 
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CEQKCD.P11 04-OCT-79 08: START OF SECTION 8 SEQ 0151 
6488 035026 013737 001 001262 MOV a*$AC1, B#SREGZ 
6489 035034 172437 001 LDF ae$TMP0, ACO ZLOAD OPERAND A 
6490 035040 174037 001 ACO, a#$TMP6 SSAVE INCASE TYPE QUT 
6491 035044 013737 001 001412 MOV BASREGO, a#SACO 
6492 035052 013737 001 001264 MOV AASREGO. aMSREGS 
6493 035060 004767 001 PC, FLTSUB ; SUBTRACT RIGHT he LEFT HAND SIDES 
6494 035064 163737 001256 001414 SUB ar$REGO, QA$AC1 :SEE IF RESUL 
6495 035072 100002 BPL > ENSURE DIF FERANCE IS POSITIVE 
6496 035074 005437 001414 NEG AC1 
6497 035100 022737 000026 001414 1$ CMP oo arsact :RESULTS WITHIN 2 BITS? 


6498 035106 BGT ANCH IF NO 

6499 035110 000401 BR TST73 +60 TO NEXT TEST 

cane 035112 104014 es: ERROR 14 ;RESULTS WRONG 

6502 PLR RE RARER EERE REE REE EERE ERE Eee 
Sens s*TEST 73 FLOATING POINT TEST 2 

6505 ® THIS TEST TAKES TWO RANDOM NUMBERS (A AND B) AND 
6506 * COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 

6507 * EACH SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BELOW: 
6508 * SECT1 (A+B) **2=Ate24+2eAeB+Bee? 

6509 3* SECT2 (A+B) * (A-B) =A®*2-Bxe2 

6510 o* SECT3 A/B*B=A 

6511 SERRE RRR ERR ERREAERER AREA EREREEREE REE EE 
6512 035114 000004 TS173: SCOPE 

6513 035116 112737 000073 001202 MOVB #73, Q4STSTNM ;LOAD TEST NUMBER 
6514 035124 013737 001202 177570 MOV @4$TSTNM, 4D I SPLAY DISPLAY TEST NUMBER 
6515 035132 012737 000001 001326 MOV #1 ,QASTIMES 

6516 035140 004737 060534 100$: JSR PC ,@4FLTDBL :GET RANDOM OPERANDS 

6517 035144 170127 000200 LDFPS #200 ; INIT FPS 

6518 035150 172537 001302 LDF a4$TMPO,AC1 ;LOAD A OPERAND 

6519 035154 172437 001312 LDF @FSTMPS ,ACO ;LOAD B QPERAND 

6520 035160 013737 001256 001414 MOV @A$SREGO,A4$AC1 ;SETUP EXTENDED 

6521 035166 013737 001260 001412 MOV @4SREG1, @4$AC0 ;EXPONENTS 

$522 035174 004767 001076 JSR PC,FLTADD PERF ORM < = 

6523 035200 174100 STF AC1,ACO SETUP ACO T 

6524 035202 013737 001414 001412 MOV @F$AC 1, a#SACO ; PERF ORM THE SQUARE 

6525 035210 004767 001012 JSR PC, FLTMPY DO THE MULTIPLY 

6526 035214 174137 001432 STF AC, a#F LTMPO [SAVE RESULT 

#34 035220 013737 001414 001262 MOV B#SAC1,a#$SREG2 AND SOFTWARE EXP 

6529 zNOW DO THE RIGHT HAND SIDE OF THE EQUATION 

6530 DO THE A*A FIRST 

6531 035226 013737 001256 001412 MOV @F$REGO, a#SACO :GET EXT — 

6532 035234 172437 001302 LDF @4$TMPO,ACO LOAD OPERAND A 

6533 035240 013737 001412 001414 MOV @4$AC0,aF$AC1 ‘SET OPERAND B EXT EXPONENT 
6534 035246 172500 LDF ACO,AC1 ;LOAD B OPERAND 

6535 035250 004767 000752 JSR PC,FLTMPY s EXECUTE THE MULTIPLY 

6536 035254 174102 STF AC1,AC2 7 SAVE RESULT 

434 035256 013737 001414 001416 MOV @A$AC1 ,A#SACZ 

6539 sNOW DO THE 8*B 

6540 035264 172437 001312 LDF @4S$TMPS ACO ;LOAD B OPERAND 

6541 035270 172500 LDF ACO,AC1 

6542 035272 013737 001260 001412 MOV aASREGI, @#$AcO ;AND EXT EXPONENT 

6543 035300 013737 001412 001414 MOV aF$AC0, aA $AC 1 
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CEQKCD.P11 04-OCT-79 08:55 173 FLOATING POINT TEST 2 SEQ 0152 
6544 035306 004767 000714 JSR PC,FLIMPY 3DO0 THE MULTIPLY 
6545 035312 174103 STF AC1,AC3 ;SAVE THE RESULT 
e208 035314 013737 001414 001420 MOV @F$AC1 , a#SAC3 
6548 sNOW DO THE 2*8*A 
6549 035322 012701 001312 _ MOV ASTMPS ,R1 
6550 035326 172411 LDF (R1) ,ACO ;LOAD THE 8 OPERAND 
6551 935330 172541 LDF -(R1),AC1 LOAD THE A OPERAND 
6552 035332 013737 001260 001412 MOV aASREG1, @A$ACO ;AND THE EXT EXPONENTS 
6553 035340 013737 pple ze 001414 MOV oy - satel 
6554 035346 004767 000654 JSR ;DO THE MULTIPLY 
6555 035352 172427 040000 LDF #060000. "aco ;SETUP TO MULTIPLY BY TwO 
6556 035356 012737 000002 001412 MCV #2. a4$AC0 
et h4 035364 004767 000636 JSR PC,FLTMPY :DO THE MULTIPLY 
6559 ;NOW SUM THE RESULTS 
6560 035370 013737 001420 001412 MOV @A$AC3, BASACO 
6561 035376 172403 LDF AC3,ACO ;GET RESULT OF B*B 
6562 035400 004767 000672 JSR PC, FLTADD ;ADD THE RESULT 
6563 035404 172402 LDF AC2,ACO ;GET RESULT OF AxA 
6564 035406 013737 001416 001412 MOV @$AC2, aF$ACO 
6565 035414 004767 000656 JSR PC.FLTADD zADD THIS RESULT 
6566 035420 174137 001442 STF ACI, aAFLTMP1 SAVE FINAL RESULT 
e328 035424 013737 001414 001264 MOV aASAC1, AASREGS 
6569 sNOW CHECK BOTH SIDES OF THE ctT nite 
6570 ;CALCULATE THE NUMBER OF CORRECT BITS 
6571 ‘PUT LARGEST EXPONENT OF A**2 OR Be*2 IN $AC2 
6572 035432 023737 001416 001420 CMP @A$SAL2, BASAC3 
6573 035440 002003 BGE 1$ BRANCH IF one ALREADY HAS LARGEST 
6574 035442 013737 001420 001416 MOV Q*SAC3,a4$AC2 ;$AC3 WAS LARGE 
6575 035450 163737 001414 001416 1$: SUB @FS$AC1 , AASAC2 = NOW CALCULATE NUMBER 
6576 035456 162737 000064 001416 SUB #52. ,@A$SAL2 2 OF CORRECT BITS WITHIN 2 
6577 035464 005437 001416 NEG arv$AC2 MAKE RESULT POSITIVE 
6578 035470 172437 001432 LDF a4FLTMPO,ACO SLOAD RESULT OF LEFT ta SIDE 
6579 035474 013737 001262 001412 MOY grant se ee [AND EXTENDED EXPONENT 
6580 035502 004767 000564 JSR PC LF ; SUBTRACT TO SEE HOW CLOSE THEY ARE 
6581 035506 163737 001264 001414 SUB ONREG3 a aA$AC1 :GET DIFFERENCE IN EXT EXPONENTS 
6582 ACTUAL EXP'S ARE EQUAL TO 200 
6583 035514 100002 BPL 3$ ENSURE RESULT IS POSITIVE 
6584 035516 005437 001414 NEG a$AC1 
6585 035522 023737 001416 001414 38: CMP @FSAC2, AASAC1 ZANSWERS WITHIN ALLOWABLE NUMBER? 
6586 035530 003401 BLE SECT2D ‘BRANCH IF YES 
6587 035532 104016 4$: ERROR 16 sRESULTS ARE WRONG 
6588 DS UE IOI IIIIIIOIOIIDIIOIOOOIUIDUIDO IO UIUUOOIUIUUO OOOO ee inrns 
6589 035534 170127 000200 SECT2D: LDFPS #200 
6590 ;DO A+B 
6591 035540 172537 001302 LDF a4$TMPO,AC1 ;LOAD A OPERAND 
6592 035544 172437 001312 LDF aFSTMP4 ACO ;LOAD B OPERAND 
6593 035550 013737 001256 001414 MOV @F$SREGO, a SAC 1 
6594 035556 013737 001260 001412 MOV @A$REG1 , AASACO 
6595 035564 004767 000506 JSR PC ,FLTADD sADD THEM 
6596 035570 174102 STF AC1,AC2 ;SAVE IN AC2 
6597 035572 013737 001414 001416 MOV Q4$AC1,a#$AC2  :AND EXT EXPONENT 
6598 NOW DO THE A-B 


6599 035600 172537 001302 LDF @A$TMPO,ACT ;LOAD OPERAND A 
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035650 
035656 
035662 


035742 
035750 


035770 


035776 
36004 


04-0CT- 
013737 
172437 
013737 
004767 
172402 
013737 
004767 
174137 
013737 


172437 
013737 
17 


004 
174102 
013737 


172437 


004767 
013737 
172402 
013737 
013737 


023737 
002003 


004767 
163737 
100002 
005437 
023737 
003401 
104016 


172537 


001412 
000322 


001414 


001302 
001256 


001412 
000264 
001414 


001416 


001414 
001416 


000120 


001414 


001412 


001412 


001262 


001412 
001414 


001416 


001412 
001414 
001420 


001412 
001264 
001420 
001416 


001416 
001416 


001412 
001414 


001414 
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MOV 
LDF 
MOV 


JSR 
NOW DO Tyg 


K 12 
04-OCT-79 09:00 PAGE 131 
FLOATING POINT TEST 2 


i et og @A$AC1 
@FSTMPS ACO 
Srsne Gt “BWSACO 
PC ,FLTSUB 


LDF -ACO 

MOV SAC 2, A#SACO 

JSR PC,FLTMPY 

STF AC1,a#FLTMPO 

MOV @ASAC1 , AASREGZ 
;NOW DO THE B*B 

LDF a*$TMP4 ACO 

MOV @ASREG1 , AASACO 

LDF ACO,AC1 

MOV @ASACO, AF$AC1 

JSR PC,FLTMP 

STF AC1,AC2 

MOV aASAC1 , aA$AC2 
sNOW DO THE A*xA 

LDF aF$TMPO,ACO 

MOV @4$SREGO, a SACO 

LDF ACO,AC1 

MOV @ASACO, AA$SAC 

JSR PC ,FLTMPY 

MOV ar$AC1 ,a#$Ac3 
NOW DO A®*2-Be*2 

LDF AC2,ACO 

MOV WSAC2 , AFSACO 

JSR PC,FLTSUB 

STF ACI, a4F LIMP 1 


MOV aASAC i 
sNOW COMPUTE THE RESULTS 


i ,@#$REGS 


AND EXT EXPONENT 
;LOAD OPERAND 8B 


; SUBTRACT THEM 

GET RESULT OF (A+B) 
FORM THE PRODUCT 
SAVE RESULT 

AND EXT EXPONENT 
;LOAD OPERAND B 


3B OPERAND IS IN ACO 
AND EXT EXPONENT 


[SAVE RESULT IN AC2 


;LOAD OPERAND A 


sEXECUTE THE MULTIPLY 
SAVE EXT EXPO OF A*A 


:GET B*B 
zA*A IN ACI 


sSAVE IN MEMORY 


detccnner! = THE wt: OF CORRECT BITS 


2s: SUB 


1$: CMP 


—_ 2, @A$AC3 
etary oetees 


$A 

a4F LTMPO,ACO 
herr (arsac 0 
PC,FLTS 

a#SREG3, VBWSACI 


1$ 

O4$SAC1 
@ASAC2 , AMSAT 
eg 


DETERMINE WHICH fe IS LARGER 
BRANCH IF AC2 LAR 
sPUT LARGEST IN Ato 


;GET LEFT HAND SIDE 


SUBTRACT TO SEE HOW CLOSE THEY ARE 
2 SUB EXT EXPONENTS 
ACTUAL EXPONENTS ARE EQUAL 


“MAKE SURE RESULT IS POSITIVE 


sRESULTS WITHIN RANGE ALLOWED? 
BRANCH IF YES 
RESULTS WRONG 


WES SSASSSSESLESLESAR ESSER RSASSSSS ESSER EA SARS RRR SRR RRR RRR RRR RRS S ES SS 


SECT3D: LDF 


a4$TMPO,AC1 


PC,FLIDIV 


;LOAD OPERAND A 
;AND OPERAND B 


3GO DIVIDE THEM 


SEQ 0153 
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000503 


010667 
023737 
003016 
001434 


013702 


002003 
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001412 


100400 
060674 


091412 


100400 
060674 


000134 
001412 


001414 
001412 
000071 


001262 


001412 
001264 


001414 


001414 


001414 


901414 


001414 
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173 FLOATING POINT TEST 2 


JSR PC,FLTMPY sMULTIPLY RESULT BY B 


STF ACi,a#FLTMPO = : SAVE_ RESULT 
MOV a*SAC1, AASREGZ 

- LDF a4$TMPO, ACO ;LOAD OPERAND A 
STF ACO,@MFLTMP1 = SAVE INCASE TYPE OUT 
MOV aASREGO, aASAC 
MOV EGO. a#$REG3 


SUB a#$REGO,aA$AC1 SEE IF RESUL 


BPL 1$ + ENSURE DIP FERANCE IS POSITIVE 
NEG aASAC1 
1$: CMP #54. QA$AC1 :RESULTS WITHIN 2 BITS? 
BLE RELES “BRANCH IF YES 
ERROR 16 “RESULTS WRONG 
BR RELE8 


ST AAA AAA RARE AAA RAEAAERAERAARAEARARAAARARERAAARARARRARERAERRER EERE 


“SBTTL FLOATING POINT MULTIPLY ROUTINE 


:* THIS ROUTINE MULTIPLIES THE CONTENTS OF ACO AND AC1 
:* AND LEAVES THE RESULT IN AC1. IT ALSO TAKES CARE OF 
te THE SOFTWARE EXPONENTS THAT ARE KEPT IN $ACO AND $AC1. 
SLUR EAR EERE REE REE ERE E 
FLTMPY: ADD arSAcd, @#$AC1  ;:ADD SOFTWARE EXPONENTS 

MULF ACOA [DO THE MULTIPLY 

MOV +6060, -(SP) | :PUT CONTROL WORD ON STACK 

JSR PC, @HEXPEXT SCALCULATE EXT EXPONENT 
1$: RTS PC RETURN 
LTA AAR AREREKEEEKRREREAEERAEAKERKEREAER RARER ER EEE 
“SBTTL FLOATING POINT DIVIDE ROUTINE 
te THIS ROUTINE DIVIDES THE CONTENTS OF AC1 BY ACO 


e* AND LEAVES THE RESULT IN AC1 


SL ARR RE RERRREREARERER EERE EE REE ERAERAEREAERE EEE E REAR ER 


FLTDIV: SUB rene @4$AC1 = ;ADJUST SOFTWARE EXPONENTS 


DIVF ACO,AC1 sEXECUTE THE DIVIDE 

MOV #100400, -(SP) PUT CONTROL WORD ON STACK 

JSR PC, a@WEXPEXT CALCULATE EXT EXPONENT 
1$: RTS PC RETURN 


SRR EERE KEE REE EEEKEEREREREAREERE REE ERERERERE EERE REE 


-SBTTL FLOATING POINT ADD RCUTINE 


:* THIS ROUTINE ADDS THE CONTENTS OF ACO TO ACI. 

:* THIS CAN ONLY BE DONE IF THE SOFTWARE EXPONENTS 
:* ARE CLOSE ENOUGH TOGETHER SUCH THAT AN ADJUSTMENT 
7 OF THE REAL EXPONENT LEAVES A NON-ZERO NUMBER 


TTI TITI LITT TITTLE TTT TET TELE E LL EELLLLLLLLLL 
FLTSUB: MOV SP, SUBF LG 7SET SUBTRACT FLAG 
FLTADD: a aa earned CHECK SOFTWARE EXPONENTS 


BEQ 2$ 
;ACCUMULATOR 1 IS LARGER THAN ACCUMULATOR 0 
MOV a@F#$AC1.R2 :GET OPERAND B SOFTWARE EXP 


GET DIFFERENCE IN SOFTWARE EXP'S 
CMP R2,457. EXP WITHIN DBL PREC RANGE? 
BGE 7$ :BRANCH IF ADD NOT - eatin 


RESULT IS OPERAND B 


; SUBTRACT Sar —" LEFT HAND SIDES 


SEQ 0154 


-iassiaeiach aaiingiciphaigiainanisatilctie alee 
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177703 
000026 


000012 
043764 


001502 
004060 


000001 


000074 
001202 


001414 


142654 


001202 
177570 
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FLOATING POINT ADD ROUTINE 


NEG R2 
"eg Be ACO RELOAD THE EXPONENT 

7$: LDEXP #-75,AC0 FAKE EXPONENT SO HARDWARE 
BR 2$ sWILL DETECT OUT OF RANGE 


“ACCUMULATOR 0 IS LARGER THAN ACCUMULATOR 1 
i$: MOV M$ACO,R2 GET SOFTWARE EXP OF OPERAND A 
SUB aA$AC1 Re GET DIFFERENCE IN EXP'S 
MOV @#$ACO,a#SAC1 MAKE SOFTWARE EXP'S EQUAL 
CMP og AS7. ;EXP WITHIN DBL PREC RANGE? 
BRANCH IF NO 


Re 
i Sect RELOAD THE EXPONENT 


ACCUMULATOR O !S MUCH LARGER a ACCUMULATOR 1 SO RESULT IS 0 
4$: LDEXP #-75,AC1 AKE EXPONENT SO HARDWARE 
uILL DETECT OUT OF RANGE 

SADD OR SUBTRACT? 


2$: TST SUBF LG : 
BEQ 5$ BRANCH IF ADD 
SUBF ACO,ACi 
BR 6$ 
5$: ADDF ACO,AC1 EXECUTE THE ADD 
6$: MOV #100400,-(SP)  ;PUT CONTROL WORD ON STACK 
JSR PC ,@#EXPEXT CALCULATE EXT EXPONENT 
3$: CLR SUBFLG INIT SUBTRACT FLAG 
RTS PC RETURN 
SUBFLG: .WORD 
RELE8: SCOPE 
MOV PC,Re 
ADD #12,R2 


— = #RELOC, PC :GO RELOCATE PROGRAM CODE 
; 8888888888888 LAST ADDRESS OF CODE TO BE RELOCATED 88888888888 


TST @A4KB1IE 71S THIS A KB11-E OR KB11-EM? 
BNE DOMF PT :BR IF IT IS 
DOMFPT JMP ENDCIS ;SKIP THIS TEST IF NOT. MFPT AND CIS NOT THERE 
OIG IOISIOIOISIIOISIIIIOISIIIOIOIOIDIDIIIOIOIIIOIDIOIOIDIOIOIOI ISIS TOT OI TOTO TOT I TTT ITI TT TIE 
:ATEST 74 CHECK MFPT pty ly ~ (KB11-E/EM ONLY) 


THE MFPT INSTRUCTION IS NOT AVAILABLE ON THE KB11-B/C/CM BUT 

* IF THIS IS A KB11-E/EM THIS TEs! IS RUN. MFPT RETURNS 

* DATA TO RO IN THE FOLLOWING FORMAT: 

* BIT 0 - 1 INDICATES 11/44 CPU 

« BIT 1 = 1 INDICATES thy 4p oN (SHOULD ALWAYS COME UP IN THIS TEST) 
e BIT 8 - 1 INDICATES CISP PRESENT 

* BIT 9 = 1 INDICATES FP PRESENT 


—MOABRASRLASZALALASLALELASESERASARSSSSR ARES ERS ERR RRS ARR RRR RRR SSA S SASS & | 


MO #1, $TIMES 7:D0 1 ITERATION 
S174: SCOPE 
MOVB #74, QASTSTNM LOAD TEST NUMBER 


MOV @A$TSTNM,@4DISPLAY DISPLAY TEST NUMBER 


SEQ 0155 
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001540 
036522 
001534 
001212 
000030 
001212 
001530 
003742 
000002 
001505 
000400 
020000 


001000 


001302 
001304 


001505 
003656 


001500 


001202 
177570 
001212 


001550 
001552 
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CHECK MFPT INSTRUCTION (KB11=E/EM ONLY) SEQ 0156 


-SBTTL START OF SECTION 9 
9999999999999 FIRST ADDRESS TO BE aie 999999999 


RELO: MOV eres 
TST (RO) [RO CONTAINS THE ADDRESS OF REL9 
MOV RO, a#FRSTAD > SAVE 
MOV PC,RO GET CURRENT PC 
SUB #.,RO ; SUBTRACT RELOCATION FACTOR 


MOV RO, a#FACTOR ‘SAVE RELOCATION FACTOR 
MOV PC a¥S$LPERR ‘SET LOOP ADDRESS 
ADD #30, a4$LPERR § :ADJUST 


MOV @ASLPERR , A#SLPADR 
TSTB  @ANEXEC ;BR IF TEST CODE TO BE EXECUTED 
+ 

JMP RELE9 

MOV #2,R3 ;R3 IS DATA PATTERN. BIT 1 WILL ALWAYS BE SET 

TSTB = @ACISP :CISP FOUND? 

BEQ 1$ BR IF NOT 

BIS #400,R3 :BIT 8 SHOULD BE SET FOR CISP 
1$: BIT #20000, a#OPT. CP FP FOUND? 

BEQ 2$ :BR_IF NOT 

BIS #1000,R3 7BIT 9 WILL BE SET FOR FP 
2$: MF PT SEXECUTE INSTRUCTION 

CMP RO,R3 MATCH? 

BEQ DONE 7 DONE IF SO 

MOV R3, a#STMPO :SET UP EXPECTED (GOOD) DATA 

MOV RO. a#$TMP1 :SET UP RECIEVED (BAD) DATA 

ERROR 17 TERROR PRINTOUT 
DONE7: TSTB as#cCISP :1S CISP PRESENT? 

BNE DOCIS :BR IF IT IS 
aoe RELE9 SKIP CIS TEST BUT RELOCATE SECTION FOR MFPT 
FL RRR RRR EERE EERE REE ERR ERE EER EERE REE EERE ERE REE 
TeTEST 75 COMMERCIAL INSTRUCTION SET TEST 
DRE EKER EERE REE EERE REE EERE EERE REE REE EER ERE 
TST75: SCOPE 

MOVB #75, a#STSTNM ;LOAD TEST NUMBER 

MOV @#$TSTNM, a#DISPLAY ;DISPLAY TEST NUMBER 

MOV @¥'$LONUM, SAVRNL :SAVE SEED LOW 

MOV @4SHINUM, SAVRNH 7SAVE SEED HIGH 

ADD #30. ,a#$LPERR :ADJUST LOOP ON ERROR POINTER 

;START OF TEST TO MODIFY ABSOLUTE ADDRESSES WHEN RELOCATING 

MOV SAVRNL . @4'$LONUM ;RESTORE SEED L 

MOV SAVRNH, @4'$HINUM TRESTORE SEED HI 

MOV #OF F TAB, RO :GET OFFSET TO OFFSET TABLE 

ADD @4F ACTOR ,RO TADD FACTOR TO GET ADDRESS OF TABLE 
1$: MOV (RO)+,R1 :GET OFFSET OF STRING 

BEQ 3$ :DONE IF OFFSET = 0 

MOV R1,R2 SAVE R1 

ADD awF ACTOR ,R2 ZADD FACTOR TO OFFSET 

MOV (R1), (Red [MOVE ORIGINAL DATA TO ADDRESS 

ADD aF ACTOR, (R2) ZADD FACTOR FOR ADDRESS 

1 >GO MODIFY NEXT ADDRESS 


BR $ 
;SET PASS reg AND GET RANDOM DATA 
3$: MOV BUF FAD ,RO SET SRC ADDRES FOR DATA 
MOV BUF FAD ,R1 3SET DST ADDRESS FOR DATA 
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DE EX 
CEQKCD.P11 04-OCT-79 08:55 T75 COMMERCIAL INSTRUCTION SET TEST SEQ 0157 
6824 036766 062701 000310 ADD #200. ,R1 ;ADJUST 
6825 036772 004737 060436 4$: JSR PC, a#$RAND :GE RANDOM NUMBER 
6826 036776 013710 001550 MOV a4$LONUM, (RO) STORE NUMBER IN SOURCE ONE 
6827 037002 042710 100200 BIC #100200, (RO) : MAKE NUMBER BETWEEN 0 AND 177 
6828 037006 012021 MOV (RO)+,(R1)+ STORE NUMBER IN DST FORT TEST CMPC 
6829 037010 020067 002164 CMP RO,DST.1A > DONE FILLING SOURCE ONE YET 
6830 037014 002766 BLT 4$ [NO GET NEXT RANDOM 
6831 sYES GO TO FIRST TEST 
6832 :TEST CMPC INSTRUCTION COMPARE SRC 1 TO SRC 1 
6833 037016 004767 001560 COMP: JSR PC,SETUP ZSET UP DESCRIPTORS 
6834 037022 076144 CMPCI > COMPARE STRINGS 
6835 037024 041172 SRC1:  . WORD  SRC.1D sSOURCE ONE DESCRIPTOR 
6836 037026 041176 DST1: ~ WORD DST.1D “DST DESCRIPTOR 
6837 037030 000040 “WORD ‘FILL WITH SPACES 
6838 037032 001403 BEQ MOVE *NO ERROR GO TO NEXT TEST 
6839 037034 004767 001602 JSR PC,CISER [GET ERROR DATA 
6840 037040 104020 ERROR 20 “REPORT ERROR 
6841 sMOVE CHAR STRING 
6842 037042 004767 001534 MOVE : JSR PC,SETUP 2 SET STRING DESCRIPTORS 
6843 037046 076067 L3D7 “LOAD DESC INTO REG 
6844 037050 041172 SRC2: . WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6845 037052 041176 DST2: .~ WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6846 037054 041254 CHAR1: .WORD CHAR 
6847 037056 076030 mMOVC :MOVE STRING 
6848 037060 076144 CMPCI S COMPARE SRC AND DST 
6849 037062 041172 SRC3: . WORD SRC.1D = THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6850 037064 041176 DST3: - WORD DST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6851 037066 000040 “WORD “FILL WITH SPACES 
6852 037070 001403 BEQ SCAN TIF EQUAL NEXT TEST 
6853 037072 004767 001544 JSR PC,CISER [GET ERROR DATA 
6854 037076 104020 ERROR 20 “REPORT ERROR 
6855 7 SCAN, MOVC 
6856 037100 004767 001476 SCAN: JSR PC,SETUP 7SET UP DESCRIPTORS 
6857 037104 112767 00000! 002124 MOVB #1,SET.1D SET CHAR MASK FOR SPAN AND SCAN 
6858 037112 076142 NXSCAN: SCANCI SCAN 
6859 037114 041172 SRC4: .WORD SRC.1D ;SOURCE DESC 
6860 037116 041236 SET1: .WORD  SET.1D PTR TO CHAR SET DESC 
6861 037120 001003 BNE FNDSCN “CHAR FOUND MOVE STRING 
6862 037122 106367 002110 ASLB —sSET..1D [NOT FOUND SHIFT MASK 
6863 037126 000771 BR NXSCAN [LOOK AGAIN 
6864 037130 010067 002036 FNDSCN: MOV RO,SRC.1D [MOV NEW ADDRESS TO DESC 
6865 037134 010167 002034 MOV R1.SRC.1A [MOV NEW LENGTH TO DESC 
6866 037140 076130 MOVCI sMOV TEXT STARTING WITH CHAR FOUND 
6867 037142 041172 SRC5:  . WORD SRC.1D [THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6268 037144 041176 DST4: cWORD DST.1D *THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6869 037146 000040 “WORD ‘FILL WITH SPACES 
6870 037150 076144 CMPC I [COMPARE SRC AND DST 
6871 037152 041172 SRC6: ~ WORD SRC.1D : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6872 037154 041176 DSTS: - WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6873 037156 000040 “WORD “FILL WITH SPACES 
6874 037160 001403 BEQ SPAN [STRINGS EQUAL NEXT TEST 
6875 037162 004767 001454 JSR PC,CISER SNOT EQUAL GET ERROR DATA 
6876 037166 104020 ERROR 20 [REPORT ERROR 
6877 7 SPAN AND MOVC 
6878 037170 004767 0014U6 SPAN: JSR PC, SETUP :SETUP DESC 
6879 037174 012767 000001 002034 E *SET MASK 
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775 COMMERCIAL INSTRUCTION SET TEST SEQ 0158 


NXSPAN: L3D7 ;LOAD DESC 
SRC7: «WORD SRC.1D : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
DST6 «WORD ODST.1D ;DUMMY DESC TO GET SET.1D TO R4 
SET2 -WORD SET.1D [THIS LOCATION MODIFIED WHEN TEST RELOCATES 
SPANC [FIND CHAR 
BNE FNDSPN [FOUND MOVE STRING 
ASLB SET. 1D ;NOT SHIFT MASK 
BR NX SPAN SAND LOOK AGAIN 
FNDSPN: MOV RO,SRC.1D ;GET ADDRESS 
MOV R1,SRC.1A ;SET LENGTH 
L3D7 [LOAD DESC 
SRC8:  .WORD SRC.1D THIS LOCATION MODIFIED WHEN [FEST RELOCATES 
DST?7: -WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
CHAR2: .WORD (CHAR 
MOVC :MOVE STING BEGINNING WITH CHAR 
L3D7 LOAD DESC 
SRC9: -WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
DST8: -WORD DST.1D ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
CHAR3: .WORD CHAR THIS LOCATION MODIFIED WHEN TEST RELOCATES 
CMPC COMPARE SRC AND DST 
BEQ MATCH STRINGS EQUAL NEXT TEST 
JSR PC,CISER [NOT EQUAL GET ERROR DATA 
ERROR 20 ;REPORT ERROR 
MATCH AND MOVE REVERSE 
MATCH: JSR PC, SETUP SET UP DESC 
L2D7 ;LOAD DESC INTO REGISTERS 
SRC10: .WORD SRC.1D SOURCE POINTER 
OBJ1: -WORD OBJ.1D ;OBJECT POINTER 
MATC :MATCH STRINGS 
MOV R1,SRC.1A [GET NEW SRC ADDRESS 
#*D25,SRC.1D GET NEW SRC LENGTH 
L3D7 ;LOAD DESCRIPTORS 


SRC11: .WORD SRC.1D 
DST9: -WORD OBJ.1D 


THIS LOCATION MODIFIED WHEN TEST RELOCATES 
[THIS LOCATION MODIFIED WHEN TEST RELOCATES 


CHARS: .WORD CHAR THIS LOCATION MODIFIED WHEN TEST RELOCATES 
CMPC [COMPARE RESULTS 
BEQ MOVER FOUND NEXT TEST 
JSR PC,CISER ERROR DATA 
ERROR ;REPORT ERROR 
sMOVE REVERSE 
MOVER: JSR PC,SETUP SET UP DESC 
MOVRC I [MOVE REVERSE 
SRC12: .WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
DST10: .WORD DST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
-WORD 7FILL WITH SPACES 
L3D7 :LOAD DESCRIPTORS 
DST11: .WORD ODST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
DST12 — DST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
MOVRC :MOVE REVERSE AGAIN 
L3D7 ;LOAD DESC FORCOMPARE 
SRC13: .WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
DST13: .WORD DST.1D sree LOCATION MODIFIED WHEN TEST RELOCATES 
-WORD ° FILL WITH SPACES 


CMPC [COMPARE STRINGS 
BEQ MOVT sEQUAL NEXT TEST 
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CEQKCD.P11 04-OCT-79 08:55 775 COMMERCIAL INSTRUCTION SET TEST SEQ 0159 
6936 037402 004767 001234 JSR PC,CISER ;GET ERROR DATA 
6937 037406 104020 ERROR 20 REPORT ERROR 
6938 ;MOVE TRANSLATE 
6939 037410 004767 001166 MOVT: JSR PC, SETUP ;SET UP DESC 
6940 037414 076132 MOVTCI MOVE TRANSLATE 
6941 037416 041172 SRC14: .WORD SRC.1D SRC_DESC PIR 
6942 037420 041176 DST14: .WORD DST.1D ;DEST DESC PTR 
6943 037422 000040 «WORD '° FILL WITH SPACES 
6944 037424 040732 TRANS1: .WORD TRANS ; TRANSLATE TABLE # renin 
6945 037426 076132 MOVTCI >MOVE TRANS AGAIN 
6946 037430 041176 DST15: .WORD DST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6947 037432 041176 DST16: .WORD DST.1D [THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6948 037434 000040 -WORD '° sFILL WITH SPACES 
6949 037436 040732 TRANS2: .WORD TRANS THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6950 037440 076144 CMPC I ; COMPARE SRC AND DST 
6951 037442 041172 SRC15: .WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6952 037444 041176 DST17: .WORD ODST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6953 037446 000040 -WORD ° sFILL WITH SPACES 
6954 037450 001403 BEQ LOCATE STRINGS EQUAL NEXT TST 
6955 037452 004767 001164 ERR4: JSR PC,CISER ;GET ERROR DATA 
6956 037456 104020 ERROR 20 ;REPORT ERROR 
6957 ;LOCATE AND MOVE CHARACTER 
6958 037460 004767 001116 LOCATE: JSR PC, SETUP SETUP DESCIPTORS 
6959 037464 076140 NXLOC: LOCCI [LOCATE CHARACTER 
6960 037466 041172 SRC16: .WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6961 037470 000040 LOCCHR: .WORD ° 
6962 037472 001003 BNE FNDLOC ;FOUND MOVE STRING 
6963 037474 105267 177770 INCB LOCCHR ;NOT FOUND INC CHAR FOR SEARCH 
6964 037500 000771 BR NXLOC ;LOOK AGAIN FOR NEW CHAR 
6965 037502 010067 001464 FNDLOC: MOV RO,SRC.1D ZADDRESS OF CHAR FOUND TO SCR.1 
6966 037506 010167 001462 MOV R1,SRC.1A LENGTH OF STRING 
6967 037512 016703 001462 MOV DST.1A,R3 :MOVE DST ADDRESS TO R2 
6968 037516 016702 001454 MOV DST.1D,R2 MOVE STRING LENGTH TO R3 
6969 037522 012704 000040 MOV a’ {RS FILL CHAR 
6970 037526 076030 MOVC :MOVE STRING wry: WITH CHAR FOUND 
6971 037530 076144 CMPC I COMPARE SOURCE AND DEST 
6972 037532 041172 SRC17: .WORD SRC.1D : THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6973 037534 041176 DST18: .WORD DST.1D :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6974 037536 000040 -WORD ° :FILL WITH SPACES 
6975 037540 001403 BEQ SKIP >STRINGS EQUAL NEXT TEST 
6976 037542 004767 001074 JSR PC,CISER NOT EQUAL ERROR 
6977 037546 104020 ERROR 20 REPORT ERROR 
6978 SKIP AND MOVE CHAR STRING 
6979 037550 004767 001026 SKIP: JSR PC,SETUP : SETUP DESCRIPTORS 
6980 037554 076141 NXSKIP: SKPCI [SKIP CHAR 
6981. 037556 041172 SRC18: .WORD SRC.1D i; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6982 037560 000040 SKPCHR: .WORD ‘*° 
6983 037562 001003 BNE FNDSKP CHAR FOUND GO MOVE STRING 
6984 037564 005267 177770 INC SKPCHR :NOT — INC CHAR 
6985 037570 000771 BR NXSKIP ;LOOK AGAIN 
6986 037572 010067 001374 FNDSKP: MOV RO,SRC.1D [GET NEW SRC ADDRESS 
6987 037576 010167 001372 MOV R1,SRC.1A [NEW SOURCE LENGTH 
6988 037602 076130 MOVCI [MOVE STRING 
6989 037604 041172 SRC19: .WORD SRC.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 
6990 037606 041176 DST19: .WORD DST.1D THIS LOCATION MODIFIED WHEN TEST RELOCATES 


6991 037610 000040 " "WORD “FILL WITH SPACES 
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001019 
001424 
001420 
000070 


041132 
001534 


000004 


000720 
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L3D7 
SRC20: .WORD SRC.1D 
DST20: .WORD DST.1D 
HARS: .WORD C 
CMPC 
BEQ DEC 
JSR PC,CISER 
ERROR 20 
:DECIMAL ARITHMETIC TESTS 
:SETUP DECIMAL DATA 
DECDAT: MOV BUF FAD, 
MOV BUF FAD R5 
ADD 56. .R5 
1$: CLR 43 
MOV #MSKTAB,R3 
ADD a#F ACTOR ,R3 
MOV (RO) ,R1 
CLR R4 
2$: BIC ‘R3)+,R1 
CMP (R3)+_R1 
BGE $ 
SUB (R3) R17 
3$: TST (R3)+ 
BIS R1,R2 
INC R4 | 
CMP #4 RG 
GE 2$ 
MOV R2, (RO) + 
CMP RS. 
BHIS 1$ 
MOV #A.DSC,R1 
ADD a4FACTOR,R1 
MOV #D.DSC,R 
ADD asF ACTOR ,R2 
48: BIC #070000, (R17) 
BIS #10000, (R1) 
ADD #4,R 
CMP R1 a 
BLO 4$ 
: TEST COMPARE NUMERIC 
CMPN I 
Al: -WORD A.DSC 
A2: “WORD A.DSC 
BEQ NUMR I C 
JSR PC, CISER3 
ERROR 
:CALCULATE [(104+108)-10C] 
NUMRIC: ASHNI 
A3: .WORD A.DSC 
D1: “WORD D.DSC 
“WORD 1 
ASHNI 
B1: .WORD B.DSC 
FI “WORD £.DSC 
“WORD 1 
ADDN! 


E 13 
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OMPARE 
THIS LOCATION MOD 
THIS LOCATION MOD 


; COMPARE or teat 

;EQUAL NEXT TEST 

[NOT EQUAL Ay ERROR DATA 
sREPORT ERR 


;LOAD DESCIPTORS FOR C 
IFIE 
IFIE 


:GET BUFFAD TO RO FOR INDEX 


7CLR R2 TO ACCUMULATE NIBBLES 
[GET OFFSET OF MSKTAB 

;ADJUST ADDRESS 

;LOAD R1 


R 
:CLR FOR COUNTER 
“CLEAR OFF UNDESIRED NIBBLES 
71S NIBBLE LESS THAN 9 
[YES DONT SUBTRACT 
;GREATER THAN 9 = 6 
INC R3 TWICE IF NO SUB 
: STORE NIBBLE IN R2 
OUN 


:NO AGAIN 
;STORE VALID DATA IN SOURCE 


:NO DO A 

Ser DATA TYPE 
;ADD FACTOR FOR ADDRESS 

GET OFFSET OF D.DSC 
; ADJUST 0 GET ADDRESS 
;CLEAR TYPE BITS 
[MAKE UNSIGNED ZONED DATA 
:GET NEXT DATA TYPE SPECIFIER 
STEST FOR D 
NOT DONE DO AGAIN 


COMPARE EQUAL STRINGS 
THIS LOCATION MODIFIED WHEN TEST 


COUR LOCATION MODIFIED WHEN TEST 


“REPORT ERROR 


SHIFT A 

THIS LOCATION MODIFIED WHE 
THIS LOCATION MODIFIED WHE 
[SHIFT COUNT 

SHIFT B 

THIS LOCATION MODIF WH 
[THIS LOCATION MODIF 
[SHIFT COUNT 


*10A+108 


D WHEN TEST RELOCATES 
D WHEN TEST RELOCATES 


RELOCATES 
RELOCATES 


rT RELOCATES 


RELOCATES 


RELOCATES 
RELOCATES 
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THIS LOCATION MODIFIED RELOCATES 
THIS LOCATION MODIFIED RELOCATES 
«WORD F.D THIS | < sean MODIFIED RELOCATES 

7052 0030 041276 C1 «WORD (.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATFS 

1053 040032 04123< 3 «WORD OD.DSC [THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7054 0034 000001 -WORD 1 ; SHIFT COUNT 

7055 040036 076151 SUBNI ; 10A+108-10C 

7056 040040 041232 FQ: «WORD D.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7057 040042 041226 D4: WORD F.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7058 0400464 041222 E3 -WORD €.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7059 CALCULATE 70*[(A=C) +8) 

7060 040046 076067 (307 ;LOAD DESCRIPTORS 

7061 040050 041206 AS: “WORD A.DSC ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7062 040052 041216 Ce: -WORD C.DSC ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7063 040054 041226 ¢ 52 «WORD F.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7064 049056 076051 SUBN ;SUB A-C 

7065 0060 076067 L3D7 ;LOAD DESC 

7066 040062 041212 Be: «WORD 8.DSC ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7067 0064 041226 F4: «WORD F.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7068 1232 DS: -WORD D.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7069 040070 076050 ADDN ZADD A-C+B 

7070 040072 076067 L3D7 ;LOAD DESC 

7071 040074 041232 D6: «WORD 0D.DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7072 040076 041226 FD: «WORD F.DSC ;THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7073 040100 041252 ONE1: .WORD ONE 

7074 040102 076056 ASHN MULT BY 10 

7075 ; COMPARE RESULTS 

7076 040104 076027 L2D7 LOAD DESC 

7077 040106 041222 E4: «WORD €E.DSC ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7078 040110 041226 F6: «WORD F.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7079 040112 076052 CMPN COMPARE STRINGS 

7080 040114 001403 BEQ CONNUM :NEXT TEST IF EQUAL 

7081 040116 004767 000554 JSR PC, CISER2 [GET ERROR DATA 

7082 040122 104020 ERR 20 ;REPORT ERROR 

7083 ; CONVERT DATA TYPES 

7084 [LONG -> NUMERIC -> LONG 

7085 [NUMERIC => PACKED -> NUMERIC 

7086 040124 076157 CONNUM: CVTLNI ; CONVERT LONG TO NUMERIC 

7087 040126 041222 E5: «WORD €E.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7088 01 041242 LONG1: .WORD LONG.1 THIS LOCATION ag ty WHEN TEST RELOCATES 

7089 040132 076153 CVTNL I CONVERT NUMERIC TO LONG 

7090 040134 041222 E18: -WORD €E.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7091 040136 041246 LONGS: .WORD LONG.2 THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7092 040140 026767 001076 001100 CMP LONG.1,LONG.2 [CHECK FIRST HALF #LONG WORD 

7093 040146 1 BNE 1$ [NOT EQUAL ERROR 

7094 040150 026767 001070 001072 CMP LONG. 1+2,LONG.2+2 ;EQUAL CHECK SECOND HALF 

7095 040156 001403 BEQ NUMPAC EQUAL NEXT TEST 

7096 040160 004767 000474 1$: JSR PC,CISER1 [GET ERROR DATA 

7097 040164 104020 ERROR REPORT ERROR 

7098 7 CONVERT NUM TO PACK TO NUM 

7099 040166 076155 NUMPAC: CVTNPI CONVERT NUM TO PACKED 

7100 040170 041206 AS: «WORD A.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7101 040172 041222 E6: -WORD €£.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 

7102 040174 076154 CVTPNI CONVERT BACK TO NUM 

7103 040176 041222 E7 «WORD E.DSC THIS LOCATION MODIFIED WHEN TEST RELOCATES 
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F7: 
Aé: 
E8: 


E9: 
FB: 


PACDAT: MOV 


04-OCT-79 09:00 PAGE 140 


F.DSC 


PACDAT 
PC,CISER2 


DECIMAL ARITHMETIC 
MA, 1 


aaF ACTOR, R2 


THIS LOCATION MODIFIED WHEN 
; TRANSFER A RO E 32 BYTES 

THIS LOCATION MODIFIED WHEN 
THIS LOCATION MODIFIED WHEN 


. 
* 


SHIFT COUNT 


COMPARE RESULTS 
THIS LOCATION MODIFIED WHEN 


THIS LOCATION MODIFIED WHEN 
[EQUAL NEXT TEST 

:GO GET ERROR DATA 

[REPORT ERROR 


;SET DATA TYPE 

sADJUST FOR ADDRESS 
3GET OFFSET TO D.DSC 
;ADJUST FOR ADDRESS 


TEST RELOCATES 
TEST RELOCATES 
TEST RELOCATES 


TEST RELOCATES 
TEST RELOCATES 


SEQ 0162 


ee cca ei eneac seas uigactacs 
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PACKED 


TEST 
TEST 


TEST 
TEST 
TEST 


TEST 
TEST 
TEST 


TEST 
TEST 
TEST 


STRING 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


TO GET RID OF ZERO 


1§: BIC #070000, (R1) MAKE UNS I GNED PACKED DATA 

BIS #060000, (R1) “SET TYPE BIT 

ADD #4,R1 SNEXT DATA TYPE SPEC 

CMP Ri ,R2 “DONE YET 

BLOS =«s«aM$ "NO DO AGAIN 

BICB  HIMASK,@A [CLR HI NIBBLE TO MAKE VALID 

BICB  HIMASK.aB :CLR HI NIB OF B 

BICB  HIMASK.ac [CLR HI NIB OF C 

MOV BUF FAD. [GET ADDRESS OF BUFF 

BICB —_LOMASK.14. (RO) “CLEAR SIGN N 

BISB  — SIGN, 14. (RO) :SET SIGN NIBBLE OF & 

BICB —_—-LOMASK (RO) >CLEAR SIGN NIBBLE 

BISB _— SIGN, 35. (RO) [SET SIGN 

BICB = LOMASK,47. (RO) :CLEAR SIGN NIBBLE 

BISB IGN, 47. (RO) “SET SIGN 

= TEST COMPARE PACKED 
CMPPAK: CMPP] :COMPARE EQUAL STRINGS 
A?: “WORD A.DSC [THIS LOCATION MODIFIED WHEN 
ag: “WORD A.DSC >THIS LOCATION MODIFIED WHEN 

BEQ PACKED :FQUAL GO TEST 

ERROR 20 REPORT ERROR 

SCALCULATE 10*[(B+C) J=10*f (Be#2)-(C#22)/(B=C)] 
PACKED: MUL PI MULT A*®A 
83: .WORD 8.DSC [THIS LOCATION MODIFIED WHEN 
Ba: “WORD 8.DSC =THIS LOCATION MODIFIED WHEN 
E10: “WORD D.DSC [THIS LOCATION MODIFIED WHEN 

MULP I “MULT -B*B 
C3: .WORD (C.DSC :THIS LOCATION MODIFIED WHEN 
C4: “WORD C.DSC [THIS LOCATION MODIFIED WHEN 
F9: “WORD €E.DSC [THIS LOCATION MODIFIED WHEN 

SUBP ! SUB -F 
F10: “WORD C.DSC [THIS LOCATION MODIFIED WHEN 
E11: “WORD B.DSC THIS LOCATION MODIFIED WHEN 
£12 “WORD F.DSC HIS LOCATION MODIFIED WHEN 

BNE NOZERO ‘ enaeacis IF RESULT NOT ZERO 

ASHP]! 
C7 .WORD C.DSC 
B7 “WORD B.DSC 

“WORD 

BR PACKED :DO ANOTHER CALCULATION 
NOZERO: SUBPI >SUB A-B 
C5: “WORD €£.DSC :THIS LOCATION MODIFIED WHEN 
B5: “WORD D.DSC :THIS LOCATION MODIFIED WHEN 
F11 = WORD E.DSC STHIS LOCATION MODIFIED WHEN 
D8: “WORD D.DSC :THIS LOCATION MODIFIED WHEN 
E14 “WORD £.DSC [THIS LOCATION MODIFIED WHEN 
ONE3: .WORD ONE “SHIFT COUNT 

DIVPI “DIVIDE E/F 
£12: .WORD  F .DSC [THIS LOCATION MODIFIED WHEN 
E13: “WORD £.DSC [THIS LOCATION MODIFIED WHEN 
D7 “WORD D.DSC :THIS LOCATION MODIFIED WHEN 

ASHP “SHIFT 10*SCRTCH 

:CALCULATE 10*(A+B) REGISTER MODE 

(3p? [LOAD DESCRIPTORS 
BS “WORD &.DSC [THIS LOCATION MODIFIED WHEN 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 


RELOCATES 
RELOCATES 
RELOCATES 


RELOCATES 


eiclad 


SEQ 0163 
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7176 0640476 041216 C6: -WORD C.DSC :THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7177 +=060500 041232 DS: «WORD D.DSC [THIS LOCATION MODIFIED wHEN TEST RELOCATES 
7178 040502 076070 ADDP “ADD A+B 
7179 040504 076067 L3D7 ;LOAD DESCRIPTORS 
7180 040506 041232 p10: «WORD D.DSC ;THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7181 040510 041226 13: . WORD F .DSC “THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7182 040512 041252 ONE 2: .WORD ONE 
7183 040514 076076 ASHP ;SHIFT 10*SCRTICH 
7184 ; COMPARE RESULTS 
7185 0460516 076172 CMPP ] sE=F 2777 
7186 040520 041222 F132 . WORD E.DSC ZTHIS LOCATIGN MODIFIED WHEN TEST RELOCATES 
7187 040522 041226 F14 . WORD F.DSC ZTHIS LOCATION MODIFIED WHEN TEST RELOCATES 
7188 040524 001403 BEQ CONPAK 
7189 040526 004767 000110 JSR PC,CISER ;GET ERROR DATA 
7190 040532 104020 ERROR 20 REPORT ERROR 
7191 ; CONVERT DATA TYPES 
7192 :LONG -> PACKED => LONG 
7193 ;LONG -> NUMERIC => NUMERIC 
7194 040534 076177 CONPAK : CVTLP I ; CONVERT LONG TO PACKED 
7195 0640536 041222 E16: . WORD E.DSC ZTHIS LOCATION MODIFIED WHEN TEST RELOCATES 
7196 040540 041242 LONG2: .WORD LONG. 7 ;THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7197 040542 076173 CVTPLI CONVERT PACKED TO LONG 
7198 040544 041222 E17: . WORD E.DSC ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7199 040546 041246 LONG3: .WORD LONG. 2 ; THIS LOCATION MODIFIED WHEN TEST RELOCATES 
7200 040550 026767 000466 900470 _ . CMP LONG. 1,LONG.2 ; COMPARE RESULTS 
7201 040556 001004 BNE 1$ 
7202 040560 026767 000460 000462 CMP LONG. 1+2,LONG.2+2 ; COMPARE RESULTS OF SECOND WORD 
7203 040566 001403 BEQ DONE 
7204 040570 (004767 000064 1$: JSR PC,CISER1 GET PC,ERROR DATA 
7205 040574 104020 ERROR 20 REPORT ERROR 
isos 040576 000167 001724 DONE : JMP RELE9 7;GO ON TO NEXT TEST 
7208 ; SUBROUT INE-SETUP 
7209 SETS UP CHAR STRING DESCRIPTORS 
7210 ;USAGE: JSR PC,SETUP 
7211 NO ARGUMENTS 
7212 040602 012767 000310 000362 SETUP: MOV #200.,SRC.1D 7SET SOURCE LENGTH 
7213 040610 916767 000450 000356 MOV BUFFAD,SRC.1A :SET SOURCE ADDRESS 
7214 040616 012767 000310 000352 MOV #200. ,DST.1D :DEST LENGTH 
7215 040624 016767 000434 000346 MOV BUFFAD,DST.1A ;DEST ADDRESS 
7216 040632 062767 000310 000340 ADD #200. ,DST.1A : ADJUST FOR DST 
7217 040640 000207 : RTS PC RE TURN 
7218 ; SUBROUTINES-CISER, CISER1, CISERZ AND CISER3 
7219 :GETS SHOULD AND WAS DATA AND ADDRESSES 
7220 * USAGE : JSR PC, CISER(X) 
7221 ;NO ARGUMENTS 
7222 040642 016737 000326 001302 CISER: MOV SRC.1A,a4$TMPO ;SHOULD BE ADDRESS 
7223 040650 016737 000324 001304 MOV DST.1A,a4$TMP1 :WAS ADDRESS 
7224 040656 000207 RTS PC >RE TURN 
7225 040660 016737 000356 001302 CISER1: MOV LONG. 1P, aS TMPO :SHOULD BE ADDRESS 
7226 040666 016737 000354 001304 MOV LONG. 2P,aa#$TMP1 zWAS ADDRESS 
7227 040674 000207 RTS PC ;RE TURN 
7228 040676 016737 000322 001302 CISER2: MOV E, a#STMPO > SHOULD BE ROOMESS 
7229 040704 016737 000320 001304 MOV  asaniial : WAS ADRRESS 
7230 040712 000207 


RTS ; RE TURN 
7231 040714 016737 000270 001302 CISER3: MOV A awSTMPO [SHOULD BE ADDRESS 
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040722 016737 000262 001304 MOV A, a4$TMP1 WAS ADDRESS 
040730 000207 RTS PC RETURN 


; TRANSLATE TABLE 

;USED BY MOVE TRANSLATE 

;USED BY SPAN AND SCAN INSTRUCTIONS 
3128 CHAR ASCII 


TRANS: .BYTE 177,176,175,174,173,172,171,170 


NEN 
NNN 


-BYTE 167,166,165,164,163,162,161,160 


BYTE = =157,156,155,154,153,152,151,150 


— 3 ot He 


PLAST SS 
WAOWROWOAOWO 


BYTE = =147,146,145,144,143,142,141,140 


BYTE 137,136,135,134,133,132,131,130 


BYTE =127,126,125,124,123,122,121.,120 


eBYTE = =117,116,115,114,113,112,111.110 


ney orld g! —thcher 9 ga eh th Spay 4 Pm 


RVI RVLANZA ESSENSE 


BYTE 107,106,105,104,103,102,101,100 


1 
1 
1 
: 
1 
: 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


-BYTE 077,676,075,074.073,072.07% 070 


-BYTE  067,066,065,064 ,063,062,061,060 


«BYTE  057,056.055.054,053.052.051,050 


-BYTE 047,046,045,044 ,043,042,041,040 


-BYTE 037,036,035,034.033,032.031.030 


Ww 
SANSALRS 


-BYTE  027,026,025,024,023,022,021.020 
BYTE 017,016,015,014,013,012,011,010 


-BYTE 007,006,005.004,003,002.001.000 


Wrren-- Oo 
OMNNOMANMOWWN 
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177760 
000011 


000000 


COMMERCIAL INSTRUCTION SET TEST SEQ 0766 


7MASK TABLES 


FOR MAKING VALID DECIMAL DATA 


MSKTAB: .WORD 
. WORD 
. WORD 
. WORD 
NINTAB: .WORD 
WORD 
WORD 
. WORD 
SIXTAB: WORD 
. WORD 
. WORD 
.~ WORD 
HIMASK: .BYTE 
SIGN: BYTE 
LOMASK: .BYTE 
EVEN 
SAVRNL: .WORD 
SAVRNH: .WORD 


177760 
11 


; CHARACTER STRING DESCRIPTOR TABLE 


SRC.1A: WORD 
DST.1D: .WORD 
DST.1A: .WORD 
OBJ.1D: .WORD 
OBJ.1A: .WORD 
A.DSC: .WORD 
A: . WORD 
B.DSC . WORD 
B: . WORD 
C.DSC . WORD 
Cs: . WORD 
E.DSC . WORD 
E: . WORD 
F.DSC . WORD 
F: . WORD 
D.DSC . WORD 

. WORD 
SET.1D: .WORD 
TRANS4: .WORD 
LONG.1: .WORD 
ONG.2: .BLKW 
ONE : . WORD 
CHAR: . WORD 
TRANS3: .WORD 
LONG1P: WORD 
LONG2P: .WORD 
BUFFAD: .WORD 


200. 
BUF F 


BUFF +88. 
BUFF +120. 


TRANS 
ere 0 


: 
TRANS 
LONG. 1 
LONG. 2 
BUF F 


OF FTAB CONTAINS ALL ABSOLUTE ADDRESSES [TO BE MODIFIED WHEN RELOCATING 
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7344 041266 037024 
7345 061274 037114 
7346 041302 037204 
7347 061310 037276 
7348 041312 037320 
7349 041320 037416 
7350 041326 037532 
7351 041334 037614 
7352 041336 037026 
7353 041344 037144 
7354 041352 037240 
7355 041360 037350 
7356 041362 037356 
7357 041370 037420 
7358 041376 037444 
7359 041404 037616 
7360 041406 037424 
7361 041414 037 
7362 041422 037054 
7363 041430 037324 
7364 041434 037762 
7365 041442 040050 
7366 041450 040 
7367 041454 040010 
7368 041462 040400 
7369 041470 040432 
7370 041472 040030 
7371 041500 040410 
7372 041506 040430 
7373 041510 040002 
7374 041516 040042 
7375 041524 040466 
7376 041532 040506 
7377 041534 040012 
7378 041542 040106 
7379 041550 040176 
7380 041556 040402 
7381 041560 040420 
7382 041566 040454 
7383 041574 040544 
7384 041600 04002 
7385 041606 
7386 041614 040200 
7387 041622 040416 
7388 041624 040446 
7389 041632 040522 
7390 041634 041174 
7391 041642 041210 
7392 041650 041234 
7393 041656 041264 
7394 041662 041242 
7395 041670 040540 
7396 041676 040100 
7397 041704 000000 


037050 


037556 
037052 


037154 
037252 


6 
040512 


037062 
037152 
037250 
037370 
037466 
037604 
037064 
037206 
037322 


037372 


037254 


040000 
040204 


040376 
040474 


040406 
040476 


040032 


0400 
040172 
040214 


040464 
040536 


040412 
040510 


041204 
041220 
041230 


040130 
040136 
040456 


~~ 30A(1052) 
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COMMERCIAL INSTRUCTION SET TEST 


OFF TAB: .WORD 


- WORD 


. WORD 


« WORD 


. WORD 


. WORD 


- WORD 


. WORD 
- WORD 
. WORD 
. WORD 


. WORD 
. WORD 


SRC1,SRC2,SRC3,SRC4,SRCS,SRC6,SRC7,SRC8,SRC9, SRC10 


SRC17,SRC12,SRC13,SRC14,SRC15,SRC16,SRC17,SRC18,SRC19, SRC20 


DST1,DST2,DST3,DST4,DST5 ,DST6,DST7,DST8,DST9,DST10 


DST11,DST12,DST13,DST14,DST15,DS116,DST17,DST18,DST19,DST20 


TRANS1, TRANS2, TRANS3,0BJ1 


145 


-SET1,SET2 


CHAR1, CHAR2, CHARS, CHARS , CHARS 


A1,A2,A3,A4,A5,A6,A7,A8 


B1,B2,83,84,B5 ,B6,B7 


C1,€2,€3.C4,C5,(6,C7 


D1,D2.D3,D4.D5,D6.D7,D8.D9,D10 


E1,€2.€3.E4,E5,.€6,€7,€8.E9,E10 


E11,€12,E13,614,E15,E16.€ 


17,€18 


F1LFO,F3,F4,F5,F6,F7,F8,F9,F10 


F11,F12,F13,F14 


SRC.1A,DST.1A,0BJ. 
A.B.C.D.E.F TBUPPAD. TRANS4 


LONG. 1P,LONG.2P,LONG1,LONG2,LONG3,LONG4 


-beseipaeetn: 


; TABLE TERMINATER 





SEQ 0167 


DEQKC=D PDP 11/70=74MP 
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04-0CT-79 


132737 


08:55 


CPU EXERCISER 


001202 
177570 
177570 


001500 


136422 
001270 


177776 


177776 
001500 


000064 
000100 
000102 


mM 13 
MACY11 30A(1052) 04-OCT-79 09:00 PAGE 146 
175 COMMERCIAL INSTRUCTION SET TEST SEQ 0168 


sBUFFER SPACE 

7200 WORDS LONG 

TUSED FOR SOURCE AND DESTINATIONS 
BUF F : -BLKwW 200. 


RELE9: SCOPE 

MOV PCR? 

ADD wi> 92 

wR __ _ PC 3GO RELOCATE PROGRAM CODE 

FEL99: "WORD 0 
9999999999999 LAST ADDRESS OF CODE TO BE RELOCATED 99999999999 
ENDCIS: 
FF AAAAAARAAAAARAAAAAARAAARAARAARARKAAAAAARAARAAAAARARARAERAARAEREEE 
TeTEST 76 TELETYPE AND CLOCK TESTS 
fF AAAARAAAAAAAAAAAAAAARAARAARAAARARAAARAARAARARARAAARAAAARAAAAARANKD 
1S176: NOP 

MOVB #76, a#$TSTNM LOAD TEST NUMBER 


MOV @#$TSTNM, a4D I SPLAY 1 DISPLAY TEST NUMBER 
MOVB @4STSTNM, a#SWR 
TTYCHK: CLR a4F ACTOR 


MOV #100,R4 SET R4& = CONSTANT 100 
BiT #TTOPT a#OPT.CP :BRANCH IF TTY 
BNE 1$ 20N SYSTEM 
JMP ARBF IN ; JUMP IF NOT 
1$: hy + ae -@$TPS ZCHECK IF TTY IS READY 
MOV #NULLS-1,@4#$REGS;SET ADDRESS OF ASCII STRING TO TYPE 
ASRB a$TPS [SET IE BIT. SEE TPISR FOR INT SERVICE. 
WAIT WAIT FOR INTERRUPT 


DUMMY : 

;ROUTINE TO CHECK PRIORITY ARBITRATION LOGIC 

; THE BELOW TEST WILL INHIBIT INTERRUPTS ON LEVEL 6 AND ABOVE (LOCKING 
;OUT THE LINE CLOCK) AND THEN SET UP THE TTY TO INTERRUPT. NEXT THE 
sPRIORITY LEVEL WILL BE SET TO 0 ALLOWING INTERRUPTS IN WHICH CASE 

re Loe ao (AT oe 6) SHOULD INTERRUPT BEFORE THE TTY (AT LEVEL 4). 


BNE ARBE X sEXIT TEST IF *T" BIT SET 
2$: BIT R4,a$IPS WAIT FOR TTY TO BE NOT 

BNE 2 BUSY 

MOVB #300, a4¢PSW SET PRIORITY LEVEL 6 
3$: BISB  R4,a$TPS :SET IE BIT 

BPL 3$ SAND WAIT FOR READY 

BIT #LKOPT ,a#OPT.CP TLINE CLOCK AVAILABLE? 

BEQ ARBF IN ‘BRANCH IF NO 

MOV #7$, AATPVEC =SET TTY VECTOR 

MOV #83, AALKVEC :SET CLOCK VECTORS 

MOV wPR? QALKVEC+2 

CLR (P :CLEAR CHECK WORD 
4$: . WORD te 

NOP 

NOP 

NOP 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
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7456 042736 aye 177546 


7462 042752 105037 177776 


7467 042756 022767 000002 177742 
7468 042764 001415 
104000 


7470 042770 000413 

7472 042772 005077 136246 
006367 177724 

7474 043002 000002 


7475 

7476 043004 005267 177716 

7477 =043010 012737 054300 000100 
7478 043016 000002 

7479 

7480 


7481 043020 012737 063434 000064 
7482 043026 005077 136212 


000240 
7489 043034 112737 000077 001202 
7490 043042 013737 001202 177570 
7491 043050 113737 ot coe 177570 


7494 043066 012737 054300 000100 
7495 043074 012737 000340 
7496 043102 052737 000100 177546 


7498 

7499 

7500 043110 105737 001500 

7501 043114 100015 

7502 043116 032737 010000 177570 
7503 043124 001011 

7504 043126 032737 000040 172516 
7505 043134 

7506 043136 004737 062214 

7507 043142 012772 064545 000000 
7508 

7509 

7510 


“y 
Ww 
_ 
~ 
wn 
— 
w 
oO 


032737 002000 001500 


N1 
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MOV R4 ,@ALKS 


S$: MOVB a(PC)+,RO GET CLOCK STATUS & BRANCH IF KEADY 
6$: a bxs CONTAINS ADDRESS OF L CLOCK STAT 


NOP sAT THIS TIME BOTH hy | oo 


CLRB aAvPSw 
zA_CLOCK INTERRUPT WILL OCCUR (3$) AND 
sAFTER THE CLOCK SERVICE A TTY INTERRUPT WILL OCCUR. THE TTY INT SERV 
ICE WILL SHIFT LEFT 4$. 


CMP #2,4$ 
BEQ ARBF IN 


; CHECK THAT THE CLOCK 
7@ TTY INTERRUPTED IN 


HLT ; THE PROPER SEQUENCE 
BR ARBF IN 
7$: CLR a$TPS ;CLEAR IE BIT 
ASL 4$ SHIFT INDICATOR 
RTI RETURN 
8$: INC 4$ 
ay AMLKSRV,@ALKVEC ;SET CLOCK VECTORS 
ARBF IN: MOV MTPISR,@ATPVEC ;RESTORE TTY VECTOR 
CLR a$TPS :CLEAR IE BIT 
ARBE X : 
ISRO IIOIOIUIOIUIOIDIIIIOIUIOIOIUIDIDIOIIOIOIOIUIOIDIO IO IOIUIUIDIDIOISISIDIDIUIDIDIOISISIIUDIOI IOS 
:*TEST 77 TURN ON UBE AND MBT 
TURN ON THE MASS BUS TESTER AND UNIBUS EXERCISER IF PRESENT 
SRE IOIOUISIS ISIC IOIUISIUIUIDIDIOIIIIOIUIOIUIOIOIIOIUIDIDIOIIOISOIIOIIDIDIDIDIS IOI IODINE 
18177: NOP 


MOVB #77 ,AASTSTNM 

MOV @4STSTNM,a4DISPLAY 
MOVB O4STSTNM, a#SWR 

BIT ny teat cP 


UB 
MOV ALKSRV ,@ALKVEC 
MOV #PR7 ,QALKVEC+2 
BIS #100, @4LKS SET IE BIT 


FREER ARERR REAR ERE EER RARER AREER AEE RRR 


e 


; TURN ON THE UNIBUS EXERCISER IF PRESENT 


;LOAD TEST NUMBER 
>;DISPLAY TEST NUMBER 


;BRANCH IF NOT AVAIL 


UBESET: TSTB ter - 71S UBE oo AVAILABLE? 
BPL MBTS BRANCH IF 
BIT wsute, tee ; INHIBIT Be? 
BNE MBTS BRANCH IF YES 
BIT mel, ar 31S MAP ON? 
BNE ge BRANCH IF YES 
JSR C ,@#UBE IN INITIALIZE UBE 


MOV #6L545 a(R2) START UBE 


PRR A MRR EERRRERRERRER RRR E EERE EERE REE eR REED 
; TURN ON THE MASS BUS TESTER IF PRESENT 


MBTSET: BIT #MBTOPT .a#OPT.CP 71S MBT AVAILABLE? 


SEQ 0169 
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CEQKCD.P11 04-OCT-79 08:55 177 TURN ON UBE AND MBT SEQ 0170 
7512 043156 143% BEQ STMM ;BRANCH IF NO 
7513 043160 032737 000010 177570 BIT #SW3 , BASWR ; INHIBIT MBT? 
7514 043166 001030 BNE STMM [BRANCH IF YES 
7515 063170 122737 006060 001560 CMPB #60,@4SUBPASS = ;FIRST eto 
7516 043176 001024 BNE STM : CH IF NO 
7517 043200 105737 001531 TSTB 7;MEM MGMT ON? 
7518 043206 001021 BNE STMM ;BRANCH IF YES 
7519 043206 052777 0000467 137104 MBT! BIS #47 ,ABITBL+12 CLEAR THE MBT 
7520 043214 012777 000007 137076 MOV #7 ,ABITBL+12 SELECT UNIT 7 
7521 043222 005077 137062 CLR @PBTTBL +2 ;CLEAR THE WORD COUNT 
7522 043226 012777 053766 137074 MOV A*BTSRV ,aMBTTBL +22 [SETUP INTERRUPT VECTOR 
7523 043234 012777 000240 137070 MOV #PRS , aMBTTBL +24 [SET VECTOR PSW 
7524 043242 112777 000161 137036 MOVB #161, @MBTTBL START MBT 
7525 LAURA REAR AER EERE EREERERERREREEERERRERERRER TERETE 
7526 -SBTTL _STMM ROUTINE 
7527 ;ROUTINE TO SET UP MEMORY MANAGEMENT TO RELOCATE PROGRAM CODE ABOVE 16k 
7528 ;CHECK IF PROGRAM IS TO BE RELOCATED. 
7529 ;SW6=1=NO RELOCATION 
7530 ca get anemone cpa ec 
7531 043250 112737 000100 001202 STMM: MOVB #100, a4STSTNM LOAD TEST ae ten 
7532 3256 112737 000100 177570 MOVB #100 ,a4SWR TIN SWICH REG T 
7533 ZANY TIME TEST 700 IS IN ERROR REPORT 
7534 ; THEN ERROR OCCURRED DURING RELOCATION 
7535 043264 032737 000100 177570 BIT #SW6 , BASWR :RELOCATION D DISABLED? 
7536 043272 001402 BEQ 3$ BRANCH IF NO 
Led 043274 000167 062622 JMP ENDM 
7539 ; THE PROGRAM IS GOING TO RELOCATE. 
7540 RELOCATION WILL BE PERFORMED IN KERNEL MODE WITH PSW SET AT te 
7541 ;LEVEL 4 (TO PREVENT TTY INTERRUPT-WHICH CHANGES DATA IN PROGRAM 
7542 ;THE ‘T*® BIT IS CLEARED (IF SET). AFTER THE DATA HAS BEEN WRITTEN IT IS 
7543 [VERIFIED BEFORE EXECUTION. 
7544 043300 013727 177776 3$: MOV = @#PSW, (PC) + SAVE CURRENT PSid 
7545 043304 000000 OLDPSW: .WORD 0 
7546 043306 012737 000200 177776 MOV PRS , @APSW 
51! 043314 004767 017642 JSR PC,CLRIBIT 7CO CLEAR 'T* BIT IF SET 
7549 NOW SETUP MEMORY MANAGEMENT REGISTERS. 
7550 043320 012700 077406 MOV #77406,R0 SET CONSTANT=R/wW UP_4K WORDS 
7551 043324 010037 172300 MOV RO, a@#K IPDRO SET KIPDRO THROUGH 7 R/wW UP 4k WORDS 
7552 043330 010037 172302 MOV RO, @#KIPDR1 
7553 043334 010037 17 MOV RO, @#K IPDR2 
043340 010037 172 MOV RO, @#K IPDR3 
7555 010037 172310 MOV RO, @#KIPDR4 
7 043350 010037 17231 MOV 0, @#KIPDRS 
7557 043354 010037 172314 MOV RC, @#K IPDR6 
Le 3 3 010037 172316 MOV RO, @#K IPDR7 
7560 3 005037 172340 CLR a4 IPARO ;SET UP KIPDRO THROUGH 3 FOR NO RELOCATION 
7561 043370 012737 000200 172342 MOV #200, @4K IPAR1 
7562 043376 012737 172344 MOV #400 ,@#K IPAR2 
7563 3404 012737 172346 MOV #600 , AK IPAR3 
7564 043472 013737 001546 172350 MOV @ANEXPAR , AK IPARS ;PAR4 MAPS TO BEGINNING OF RELOCATION SPOT 
7565 043420 013737 172350 172352 MOV @4K IPARS , aK IPARS 
7566 043426 062737 000600 172352 ADD #600,@4KIPARS ;PARS MAPS TO TOP 4K PAGE (NEXPAR START ADDRESS + 12k) 
7567 043434 012737 177600 172356 MOV #177600, aK IPAR7” zAND OF COUSE THE 1/0 PAGE 
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79 08:55 


CEQKCD.P11 04-0CT- 
7568 
7569 043442 010037 7600 
7570 043446 010037 177602 
7571 063452 010037 7604 
7572 043456 010037 177 
7573 043462 0037 177616 
7574 043466 016737 54 177640 
7575 043474 013737 177640 177642 
7576 043502 737 200 177642 
7577 043510 013737 177640 177644 
7578 043516 737 00 7644 
7579 043524 013737 177640 177646 
7580 043532 062737 177646 
ie 4} 043540 013737 172356 177656 
7583 043546 010037 2200 
7584 043552 010037 172202 
7585 043556 010037 172204 
7586 043562 010037 172206 
7587 35 010037 172216 
7588 043572 016737 135750 172240 
7589 04 013737 172240 172242 
7590 04 062737 200 172242 
7591 043614 013737 172240 172244 
7592 043622 737 172244 
7593 043630 013737 172240 172246 
7594 043636 2737 172246 
7595 013737 172356 172256 
7596 043652 012737 1 177572 
7597 012737 172516 
7598 110637 001531 
7599 043672 005037 
7600 043676 012737 046120 00000 
7601 043704 013701 00011 
7602 043710 005037 000116 
7603 043714 012737 046120 000114 
7604 043722 012702 1 
7605 043726 2700 
7606 
7607 043732 012703 127776 
7608 3736 0013 
7609 043740 012737 064270 000004 
7610 043746 010137 000116 
7611 043752 012737 063464 000114 
7612 043760 137 044160 
7613 
7614 
7615 
7616 
7617 
7618 
7619 
7620 
7621 
7622 
7623 
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in SETUP USER MEM MGMT Re ie 


SEG 0171 


MOV RO, AFUIPDRO :SET UP USER MEM MGMT REGS 

MOV RO. @#UIPDR1 

MOV RO. @#UIPDR2 

MOV * @MUIPDR3 

MOV RO. @#UIPDR7 

MOV XPAR, @UIPAR 

MOV IPARO, @#UIPAR1 

ADD #200, @#UIPAR1 

MOV @PUIPARO , @#UIPAR2 

ADD #400, @#UIPAR2 

MOV @FUIPARO , @MUIPAR 

ADD #600, a#UIPAR3 

MOV @#K IPAR7 , AAUIPAR7 

MOV RO, a#SIPDRO :SET UP SUPERVISOR MEM MGMT REGS 

MOV RO. a#SIPDR1 

MOV RO. a#SIPDR2 

MOV RO. a#SIPDR3 

MOV RO. a#SIPDR7 

MOV NEXPAR, a4'S IPARO 

MOV @#SIPARO, @#SIPAR1 

ADD #200, a#SIPAR1 

MOV @4SIPARO, @#SIPARZ 

ADD #400, a4SIPAR 

MOV @#SIPARO, a#SIPAR3 

ADD ,@ASIP 

MOV aa IPAR7, @#SIPAR7 

MOV #1, a#SRO :ENABLE MEM MGMT 

MOV #60, a#SR3 ‘SETUP SR3 

MOVB _—s SP, a#MIMON ‘SET MEM MGMT ON IND = ON 

CLR avERRVEC +2 

MOV #ENDMEM, @#ERRVEC: SET TIME OUT TRAP VECTOR 

MOV @FCACHVEC+2,R1 :SAVE CACHVEC PSW 

CLR @#CACHVEC+2 

MOV #ENDMEM, QA CACHVEC zSET UP CACHE VECTOR FOR HOLE 

MOV #100000.R2 :SETUP GENERAL REGISTERS 

MOV #0,RO [DATA WILL BE RELOCATED FROM 
TADDRESS IN RO TO ADDRESS IN R2 AFTER MAPPING 

MOV #127776,R3 ZSELECT PARS + 2k (14K TOTAL REQUIRED) 

MOV RO, (R3) “TRAP TO ENDMEM IF INSUFFICIENT MEMORY 

MOV WERPRT ,QWERRVEC =RESTORE ERROR TRAP VECTOR 

MOV R1 , a#CACHVEC +2 

MOV .PARSRV , @#CACHVEC :RESTORE CACHE VECTOR 

JMP at OMON 


LRA RRR REE ERERARE RE RER EERE E EERE REE REE 
-SBTTL RELOCATION ROUTINE 
THIS ROUTINE IS USED TO RELOCATE THE 9 SUBTESTS UP TO 28k. 

, nate ieaitane I/O DEVICE IS SELECTED, CONTROL IS PASSED 


ENTER WITH: 


see PP eeee 


FRSTAD=PHYSICAL ADDRESS OF FIRST CODE 
FACTOR=NUMBER OF BYTES ABOVE BASE CODE 


=LAST Ata ADDRESS OF THE SECTION 


R2 
ExIT TO 1/0 MONITOR 


OLDBASE=F IRST PHYSICAL ADDRESS TO BE RELOCATED 
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RELOCATION ROUTINE 


ate PDP be Le a x. EX esas 


=FIRST PHYSICAL ADDRESS TO RELOCATE TO 
=TWO"'S COMPLIMENT WORD COUNT 


ORR ARERR AAAAAATAAEAAEARAEAREREEARAARAAARARAAAAAARAARARARRO OCR REEE 


177570 RELOC: 


MOV RO,R 
;LAST ADDRESS IS_IN R2 
MOV R2,R3 


ENTER2 
;RELOCATE B "BY seg ee MANAGEMENT OF F 









SEQ 0172 












71S RELOCATION DISABLED? 
ZBR YE 






si$ 
;BRANCH IF YES 
:GET FIRST ADDRESS TO BE RELOCATED 











; SAVE LAST ADDRESS 


7R4 NOW HAS BYTE COUNT 
SAVE BYTE COUNT 
eFIRST RELOC IS TO ENDTAG+2 










E RE 7 SECT 
“GET FIRST ADDRESS TO RELOCATE TO 
RG NOW CONTAINS LAST MEM ADDRESS 
: €NOUGH MEMORY ? 
;BRANCH IF NO 
7R4 NOW HAS BYTE COUNT 
; INHIB’ ~ RELCC BY I/O DEVICE? 
;BRANCH IF YES 
;SAVE START ADDRESS 
: SAVE NEW BASE ADDRESS 



















MAKE IT A WORD COUNT 
IGET TWO'S COMPLIMENT 
SAVE R4& AS WORDCOUNT 
:GO TO 1/0 MONITOR 


RELOCATE CODE 
DONE YET? 





: SAVE RO FOR TYPEOUT 
SAVE R2 
: CONVERT R2 TO A PHYSICAL ADR 


7GO TO NEXT 
ZCONTAINS PC OF NEXT SECTION 


:GO EXECUTE . one CODE 


° TTT TTL ELLE L LLL LLL ULL 


I/0 RELOCATION 
THIS 


MONITOR 
ROUTINE IS USED TO SCHEDULE I/0 DEVICES FOR SUBTEST 
RELOCATION AND PROGRAM RELOCATION. THE I/0 DEVICE UNIT 


NUMBER IS DETERMINED, THE BUS 


ADDRESS CALCULATED, THE WORD 
COUNT CALCULATED AND PASSED TO THE DEVICE HANDLER. 


LUA AAA AEA REEEREREEREREERERE TETRA REED 


#1$ ,@#SLPERR 


; SETUP ERROR LOOP 


#0 , AOL DBASE 
XPAR, 








“BRANCH IF NO 
7GO CHECK DATA 
=SETUP R4 AND R5 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
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001302 


177770 


177570 


001574 
001604 


177570 


001600 
001600 


001600 


001600 
001600 


001304 
001642 


001643 


000010 
000002 


MACY11 30A(1052) 


23: MO 
ENTER2: 


41$: 


52$: 


47%: 


45$: 


498: 


60$: 
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RELOC 
#174000, a4 1 OWC 
aF$TMP2 

#=2 , AARNTBINX 
a4$TMPO 


@ASWR, BADE VINDX 
pee aT ae aMDEVINDX 
@4DEVIND 

esiNPO 

43$ 

#10,R5 

#16, @ADEVINDX 

42$ 

#-2 , @ADEVINDX 

#2, @ADEVINDX 


#10,R ;SET SOB 
En areas ee 


R2 
OFSTMP1+1 ,SYSSIZE*1(R3) 2HA 


aySTMP1 
R4,44$ 
TMP 


45$ 
R5,40$ 
R2 


46$ 


#10,R4 
#SYSSIZE+1,R1 
(R1)+ 


R1 

R4,47$ 

41$ 

R2 

49$ 
SYSSIZE+1(R3) 
43$ 

R3,60$ 
#MSGINX .60$ 
a60$ ,60$ 


:T0 FORM 22 A i ADDRESS 


:RELOCATE ‘eo 


; BRANCH 
;GO RELOCATE VIA CP 
;SET WORD COUNT TO 2k 


;SETUP RUN TABLE INDEX 


Are LEGAL DEV FLAG 
NHIBIT ROUND ROBIN? 
CH IF NO 


SFLAG SET? 

[BRANCH IF YES 

:GET DEVICE FROM ~~ 
:MASK LOWER 3 BITS 

ZADJUST FOR WORD INDEX 
SET FLAG 


: CONT INUE 
SET SOB COUNT 
:LAST DEVICE YET? 


;BRANCH IF NO 
INIT DEVICE INDEX 
; INCREMENT INDEX 
GET INDEX 

: INIT UNIT MASK 


COUNT 
:IS THIS UNIT EXISTENT? 
CH IF NO 


: :SET LEGAL DEVICE {FLAG 
sir T BEEN U USED? 


NO 
SELECT NEXT UNIT 
NUE 


; CONTI 
; INHIBIT ROUND ROBIN? 
BRANCH IF YES 

; CONT INUE 

ANY DEVICES AT ALL? 
BRANCH IF NO 


:SET SOB COUNT 

of ADR OF SIZE TABLE 
CLEAR ALL USED BITS 

SIN ALL DEVICES 

; CONT INUE 


iWAS IT A _— DEVICE? 
BRANCH IF 


CLEAR ALL USED BITS THIS DEV 


'GEN MESSAGE ADR 


SEQ 0173 
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013763 


044522 


001532 
177777 
044564 


C01531 
001565 


001579 
00153€ 


177260 
100000 


045672 
001736 


001302 


177370 
001736 


001302 


045652 
001305 


001304 


001602 
001574 
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001643 


001756 


001604 


002052 
000012 
000010 


001772 
002022 
002024 
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3565$: 


64$: 
46$: 


61$: 


11$: 


8$: 


62$: 
30$: 


10$: 


TYPE 
BR 
-ASCIZ 


BR 
TSTS 
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,65$ by ASCIZ STRING 

64$ 3;GET OVER THE ASCIZ 

/ UNAVAILABLE /<CRLF> 

ENTER2 

aFov sACTii? 

a BRANCH IF YES 

g- 

51$ 

.67$ TYPE ASCIZ STRING 

66$ [GET OVER THE ASCIZ 

?N0 1/0 DEVICES?<CRLF> 

@a4MM0N MGMT ON? 

61$ ;BRANCH IF YES 

@40L DBASE ,RO ;RESTORE RO 

@ANWBASL ,R2 SRESTORE R2 

@FSF ACTOR ,R3 ;GET RELOCATION FACTOR 
RO,R3 7FORM LAST ADDRESS 

RO,RS SETUP R 

RELNIO 7GO RELOCATE WITH CP 
#100000 ,R2 SETUP REGISTERS 

RO ;WITH FROM AND TO ADDRESS 
@ARELOCP RELOCATE VIA CP 
RP3HSTAT(R3) [1S HANDLER BUSY? 

8 ;BRANCH IF NO 

a4$TMPO ROUND ROBIN? 

iss :BRANCH IF NO 
RP3HSTAT(R3) DID HANDLER FAIL? 

62$ ;BRANCH IF NO 

aF$TMPO ROUND ROBIN 

62$ [BRANCH IF YES 

a715$ 

hala: ace ;SET UNIT USED BIT 

aA4$ TMP) sENCODE THE BIT POSITION 
Re INTO A UNIT NUMBER 

30$ 

R2 

R2,@4UNI TNO 7 SAVE UNIT NUMBER 

ak Pee ee 2 GIVE WORD COUNT TO HANDLER 
#3 ,R4 SENCODE DEVICE FOR RUNTABLE 
@AUNI TNO RS ;ENCODE UNIT NUMBER 

#2, Q#RNTBINX ; INCREMENT RUN TABLE INDEX 
@4RNTBINX,R [GET RUN TABLE INDEX 


2 
R4 ,RUNTBL +1 (R2) 
a#UN! TNO, 5a gr 
#PRS , AARESVEC+ 
Re SHANA(R3) @ARESVEC 


@A40L DBASE ,RP30LD(R3) 
QANWBASL ,RPSNWL (R3) 
@ANWBASH , RP 3NWH (R35) 


ENTER DEV & UNIT _IN TABLE 
:GIVE HANDLER UNIT NUMBER 
SETUP RESERVED VECTOR PSwW 
SETUP RESERVED VECTOR 

SADJUST INDEX 

:GIVE HANDLER OLD BASE ADDRESS 
;GIVE HANDLER 

NEW BASE ADDRESS 
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CEQKCD.P11 04-OCT-79 08:55 1/0 RELOCATION MONITOR SEQ 0175 
7792 045044 005063 001774 CLR “1 aati ZENSURE OLD BASE HIGH IS CLR 
7793 045050 000010 CALLAO ER 
7794 045052 105737 001531 TSTB aAMMON 71S MEMORY MANAGEMENT ON? 
7795 065056 001416 BEQ 138 ;BRANCH IF NO 
7796 045060 022737 000014 001604 CMP #14, QARNTBINX ; TRANSFERED 14K YET? 

7797 +=045066 001412 BEQ 13$° ;BRANCH IF YES 

7798 045070 062737 010000 001566 ADD phy e's @40L DBASE ADD 2k 

7799 045076 062737 010000 001570 ADD #10000 , AANWBASL ;TO BASE 

7800 045104 005537 001572 ADC QANWBA SH ADDRESSES 

7801 045110 000137 044260 JMP avs1$ 

7802 045114 113705 001631 13$: MOVB @ALTICKS+1,R5 7GET SECOND COUNT 

7803 045120 062705 000002 ADD #2,R5 ; INCREMENT BY [wO 

7804 045124 162705 000074 SUB #60. ,R5 ; ENSURE RESULT IS 59 OR LESS 
7805 045130 100002 BPL 31$ 

7806 045132 062705 000074 ADD #60.,R5 =COUNT WAS LESS THAN 58=RESTORE 
7807 045136 012700 000010 31$: MOV #10,R0 ;SET SOB COUNT 

7808 045142 005002 CLR R2 

7809 045144 005003 CLR R3 

7810 045146 005004 CLR RS 

7811 045150 066203 001736 14$: ADD RP3HSTAT(R2) ,R3 ;ADD ALL THE HANDLER 
7812 045154 005504 ADC RS sSTATUS WORDS. WHEN ALL 
7813 045156 062702 000002 ADD #2,R2 ; TRANSFERS ARE FINISHED 
7814 045162 077006 SOB RO,14$% RESULT WILL BE 2000 
7815 045°64 006103 ROL R3 : (WITHOUT ROTATE) 

7816 045166 005504 ADC R4 

7817 045170 022703 004000 CMP #4000,R3 z;ALL DONE? 

7818 045174 001406 BEQ 32$ ZBRANCH IF YES 

7819 045176 123705 001631 CMPB @ALTICKS*1,R5 ;TWO SECONDS ELAPSED YET? 
7820 045202 001355 BNE 31$ [BRANCH IF NO 

7821 045204 104015 ERROR 15 ;DEVICE HUNG 

7822 045206 006177 134000 JMP @$LPERR RESTART RELOCATION 

7823 045212 005704 32%: TST RS ANY DEVICE ERRORS? 

7824 045214 001402 BEQ 82$ “BRANCH IF NO 

7825 045216 000167 000430 JMP 15$ ERROR 

7826 045222 105737 001531 82$: TSTB @AMMON 7MEM MGMT ON? 

7827 045226 001012 BNE 25$ ;BRANCH IF YES 

7828 045230 013705 001566 MOV @40L DBASE ,R5 7SETUP RS FOR DATA CHECK 
7829 045234 010500 MOV i 

7830 045236 063700 001536 ADD a#$F ACTOR,RO :GET LAST ADDRESS 

7831 :0F GOOD DATA 

7832 045242 013702 001570 MOV @ANWBASL .R2 

7833 045246 063702 001536 ADD BASFACTOR,R2 ZGET LAST ADDRESS 

7834 +3 DATA TO BE CHECKED 
7835 045252 000411 BR 22$ ONT INUE 

7836 045254 012700 070000 25$: MOV #70000,R0 “GET LAST ADR + 2 OF GOOD DATA 
7837 045260 012702 110000 MOV #110000,R2 :GET LAST ADR + 2 OF DATA TO BE CHECKED 
7838 045264 013737 172352 172350 MOV ark IPARS , aak IPARG ;SET UP PAR4 FOR TOP 4K BANK 
7839 045272 012705 002344 MOV #SERRTB.RS [DON'T CHECK BELOW SERRTB 
7840 045276 004737 062534 228: JSR PC, aACHKDAT :GO CHECK DATA 

7841 045302 102413 BYVS 81$ BRANCH IF ERROR 

7842 045304 105737 001204 TSTB @ASERFLG ;ANY ERRORS? 

7843 045310 001002 BNE 83$ :SRANCH IF YES 

7844 045312 000167 000462 MP EXIT RE TURN 

7845 045316 032737 001000 177570 83$: BIT #SW9, aASWR =LOOP ON ERROR? 

7846 045324 001473 BEQ 100$+2 “BRANCH IF NO 

7847 045326 000167 000244 JMP 20$ 7GO DO FUNCTION AGAIN 
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001302 
001522 
001531 
010000 
000002 
001663 
177400 
177775 
177763 
177770 
001310 
001306 
000001 
020000 
001304 
045576 


001531 


044240 
044160 


100000 
000002 
000001 
000012 
000040 


000040 
001531 
000400 


002066 
001736 


001 304 


001212 


001736 


134426 


134476 
134426 


001736 2 


000010 
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04-00 1-79 
OR 


1/0 RELOCATION MONIT 


81$: 


17$: 


7RS NOW 
168: 


19$: 


CLR R1 

MOV RO, a#STMPO 
MOV R2,@4VADR 

MOV RO,R3 

CLR RL 

TSTB @AMMON 

BEQ 16$ 

SUB + ae RZ 

BM! 

ADD #3. 

BR 

CONTAINS INDEX OF ERROR FOR RUN 
MOVB RUNTBL +1 (R46) RS 
BIC #177400,R4 
ASR RG 

CLR RS 

ASHC #-3,R4 

MOV R5.RO 

ASH #-15,R0 

BIC #177770,R0 
MOV RO, a#STMP3 
MOV 3 

MOV R3,a4$TMP2 
MOV #1 ,QASTMP1 
SUB #20000,R5 

BCS 18$ 

ROL a4$TMP1 

BR 19$ 

MOV #20$,a4$LPERR 
TST R1 

BNE 100$ 

ERROR 10 

TSTB a4MMON 

BNE 70$ 

JMP @#ENTER2 

JMP a4 1 OMON 

ERROR 

BIC #BITIS RP3HSTAT(R3) 
CMP #2, 

BLT 90$ 

BGT 92 

MOVB #1, aRKCS 

BR $ 

CMP #12,R3 

BNE 91$ 

BIS #BITS,aRSCS2 
BR + 

BIS #BITS,ARPSCS2 
TSTB aAMMON 

BNE 70$ 

BR 71$ 

BIS #BITB RP 3HSTAT(R3) 
MOV RP 3HANA(R3) , AARESVEC 
CALLHANDLER 

TSTB RP3HSTAT(R3) 
BPL 21$ 


154 


SAVE ERROR ADDRESS 


; 1S MEM MGMT ON? 
;BRANCH IF NO 
; SUBTRACT 2k FROM ERROR ADDRESS 
= BRANCH IF BLOCK IS FOUND 
OUN BLOCK 


ME TABL 

:GET DEVICE THAT FAILED 
ENSURE HIGH BYTE CLEAR 
[THROW AWAY LSB 

ENSURE RS CLEAR 

;GET UNIT NUMBER IN R5 


AND DEVICE INDFX IN RG & R35 


;ENCODE 3 BIT UNIT NO INTO 


sONE BIT IN THE LOW BYTE OF S$TMP1 
;BRANCH IF DONE 
ayy NEXT UNIT 


; CONT INUE 

;SETUP LOOP RETURN 
;DEVICE ERROR? 
;BRANCH IF YES 
DATA a ERROR 
;MGMT ON 


“BRANCH ie YES 


; CLEAR THE ERROR 
7RKOS ERROR? 
BRANCH IF RH70 
BRANCH IF RPO3 

RK CONTROLLER CLEAR 


7RS04? 
ZBRANCH IF NO 
CLEAR RS CONTROLLER 


CLEAR RPOS CONTROLLER 
;MGMT ON? 


“BRANCH IF YES 
:SET REPEAT FLAG IN HANDLER 


E 
SETUP RESERVED INSTRUCTION VECTOR 


sHANDLER FINISHED? 
;BRANCH IF NO 


SEQ 0176 
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7904 005763 001736 TS! RPSHSTAT(R3) ANY ERROR? 
7905 5626 100714 BMI 18$ “BRANCH IF YES 
045630 005701 TST R1 “DEVICE ERROR? 
001002 BNE 80$ $ CH IF YES 
000167 177356 JMP 32$+4 7GO CHECK DATA 
032737 9001000 177570 80$: BIT #BITS,aaSwR ;STILL LOOPING? 
001353 BNE 7 “BRANCH IF YES 
000721 BR 100$+2 Z CONTINUE TEST 
>THE FOLLOWING :y HANDLES DEVICE ERROR™ ON RELOCATION 
005004 15$: CLR sSET INDEX 
010601 MOV - RI 
005764 001700 243: TST RUNTRAK (R4) ; SEARCH FOR DEVICE ERROR 
100643 BM! 16$ [BRANCH IF ERROR 
062704 000002 ADD #2,R4 ; INCREMENT INDEX 
000772 BR 245 * CONT INUE SEARCH 
ee BY ste a MANAGEMENT ON 
012703 0100C0 RELOCP: MOV #4096. ,R3 COUNTER 
012022 1$: MOV (RO) +, (R2)+ ZRELOCATE CODE 
077302 SOB R3,1$ BR IF NOT DONE 4K WORDS 
023737 172350 172352 CMP BAK IPARG , AK IPARS «DONE 16K YET? 
001414 BEQ 2$ ;BR IF DONE 
062737 000200 172350 ADD sce. @AK IPARS sMAP TO NEXT 4K SPACE 
012702 100000 MOV #100000,R2 :MAP WITH R2 (PAR4) 
023737 172350 172352 CMP BAK IPARS , AAKIPARS :DOING LAST 4K BANK? 
001357 BNE RELOCP ‘BR IF NOT 
012703 004000 MOV #2048. ,R3 72K COUNTER 
000756 uy 1$ SRELOCATE LAST 2k ONLY (14k TOTAL) 
012705 001736 2$: MOV #RPSHSTAT RS :DON'T CHECK BELOW RP3HSTAT 
737 062534 JSR PC ,@4CHKDAT s CHECK DATA 
102012 BVC EXIT 
010037 001302 MOV RO, a#$TMPO 
010237 061522 MOV R2,Q4VADR 
104006 ERROR 6 
013737 001546 172350 MOV @ANE XPAR, afk [PARS SRESTORE PARS 
000167 175672 JMP RETRY 
105737 001531 EXIT: TSTB @4MMON >MEM MGMT ON? 
001002 BNE .+6 ;BRANCH IF YES 
000137 044152 JMP @FEXITRE 
062737 77 001546 ADD #77 .@ANEXPAR ;SET VALUE FOR NEXT RELOCATION 
013737 172350 172340 MOV @4K IPARS , BAK IPARO 
37 172350 172342 ADD @4K IPARS , @AKIPAR1 
063737 172350 172344 ADD @FKIPARS , @AKIPARZ 
063737 172350 172346 ADD @AFKIPARS ,@MKIPAR3S 


PETAR ARAAAKAAEAEEKEREREAAERAEAREAEREREREREERAKEEAEAEREREREEAAEERAEEEEREH AREER EAS 
PROGRAM IS NOW EXECUTING IN KERNEL MODE RELOCATED TO ADDRESS AS SPEC~- 
ZIFIED IN KIPARO. FOR EX. IF KIPARO=1600 THEN PROGRAM EXECUTING AT 
- ADDRESS, 160000+ (PC) 

013700 172340 ak IPARO, RO :GET PARO 

072027 177771 ASH #-7 RO :GET BITS <14:7> IN LOW BYTE 

110037 001203 MOVB RO,@#$TSTNM+1 :PUT IN DSPLAY REG HIGH BYTE 

912706 001200 MOV #KERSTK, » SP SET KERNEL STACK PTR 


016746 175204 MOV OLDPSW,-(SP) RESTORE OLD PSwW 
012746 010000 MOV #LOOP,-(SP) 

105737 001530 TST8 @ANE XE C ZRANCH IF TEST CODE TO 
001402 BEQ 1$ ;BE EXECUTED 
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7960 046112 012716 043250 
7961 046116 000002 
7962 
7963 
7964 046120 022626 
7965 0466122 005037 177572 
7966 046126 042737 000020 
7967 
7968 
7969 
7970 
7971 046134 012737 (000700 
7972 046142 005737 003574 
7973 046146 001403 
7974 046150 012737 001600 
7975 046156 105037 001531 
7976 
7977 
7978 
7979 
7980 
7981 
7982 046162 
7983 046162 012737 064270 
7984 046170 012737 063464 
7985 046176 010137 116 
7986 046202 005037 177776 
7987 046206 004767 014750 
7988 046212 012706 001200 
7989 046216 032777 100 
7990 046224 001374 
7991 046226 105237 901560 
7992 046232 113702 001560 
7993 62 162702 00C060 
7994 046242 022702 
7995 046246 001013 
7996 046250 012737 
7997 046256 005037 177750 
7998 046262 005037 001649 
7999 9462 504 
8000 046270 012746 046376 
8001 046274 
8002 046276 302 
8003 046 012737 001520 
8004 012737 001557 
8005 046314 106277 132724 
8006 046320 016246 064364 
8007 046324 012746 010000 
8008 046330 016237 064400 
8009 3 016237 0644 
8010 105737 001532 
8011 046350 001011 
8012 046352 122777 000200 
8013 046360 001371 
8014 046362 012737 065313 
8015 046370 106277 132650 


172516 


001546 


001546 
000004 
000114 


133020 


001560 


000014 
001270 


001640 
177750 
132664 
007270 
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MOV ASTMM, (SP) 


1$: RTI ;RESTART PROGRAM AT LOOP 

WHEN oe ee 28k IS COMPLETE PROGRAM TRAPS TCO ENDMEM. 
ENDMEM: CMP )+,(SP)+ ;POP STACK TWICE 

ENDM: CLR SRO" :DISABLE MEM MGMT 


BIC #8114, aAMMRS :CLEAR 22 BIT MODE 


RRNA ARR ERR RR ERRERRR EERE RARER ERR REET EERE ARERR RE ee 
;AT THIS TIME A ‘SUB-PASS' HAS BEEN COMPLETED. 
: PROGRAM, NOW wee IN KERNEL MODE AT PC AS SHOWN (NO RELOCATION) 


TST @ANE XPAR RESET NEXT VALUE FOR PAR REGISTERS 
BEQ 2$ 
MOV #1600, BANE XPAR 
2$: CLRB a4MM0N ;SET MEM MGMT ON IND = OFF 
POTTTITITITIL TLE LLLL LLL LEE LLL 
SBTTL END OF SUB-PASS ROUTINE 
3 THIS ROUTINE SETSUP THE PSW AND Santa eae hs REGISTERS 
. FOR THE NEXT SUB-PASS. IT THEN STARTS THE PRINTER 
i” (IF NOT ON ACT11) FOR TYPING THE END OF SUB-PASS MESSAGE. 


J TRAE AAAAAAAAARAORARERRAEAAAARAAAAERAERAARARAEARRRTAAKERRERRRR ERE EES 
END: 
END1: MOV #ERPRT ,@#ERRVEC 


MOV # .PARSRV ,@ACACHVEC ZRESTORE CACHE PARITY VECTOR 
MOV R1,@4CACHVEC+2 ;AND PSW 
CLR aFrPSwW :CLEAR MODE BITS IN PSW 
JSR PC,CLRIBIT GO CLEAR ‘T* BIT IF SET 
MOV #MKERSTK,SP 7SET KERNEL STACK PTR 
BIT #100, a$TPS ;CHECK IF OUTPUT DEVICE IS BUSY 
BNE .~§ :I1S AVAILABLE 
1$: INCB @4SUBPASS 
MOVB @4SUBPASS,R2 
SUB #60,R2 
CMP #6,R2 ZEND OF TEST? 
BNE 2$ ;BRANCH IF NOT AT END 
MOV #60, ASUBPASS ; INIT SUBPASS COUNT TO ASCII 0 
CLR QAMAINT > CLEAR MAINTENANCE REG 
CLR a SMAINT :CLEAR SOFTWARE VALUE 
CLR -(SP) 
MOV #SEOP ,-(SP) 
RT] 
23: ASL R2 
MOV #$RTIRN , @ATBITVEC sSET ‘T" TRAP VECTOR 
MOV #SUBPASS~-1 , a@#$RES5 
ASRB asTPs 
MOV PSWTAB(2),-(SP) ;PUSH NEXT PASS PSwW ON STACK 
MOV #LOOP ,-( SP) sRESART PROGRAM AT LOOP 
MOV MRGTAB(R2), aeSMAINT 
MOV en ens @AMA INT 
3$: TSTB 4 7QV PASS? 
BNE BRANCH IF YES 
C 5200. a$TPS :1S PRINTER READY? 
BNE 3$ “BRANCH IF NO 
MOV eet, avSREGS” 
ASRR asTP ; TYPE END SUBPASS MESSAGE 


SEQ 0178 


| 
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8016 046374 000002 RT] 1: RT] RESTART PROGRAM AT LOOP WITH NEW PSw 
8017 3; (FROM TABLE BELOW) 


8019 LLANAARARAARAAAERERARE REAR R ARTA HERRERA ARERR ARTA KER ATA ERE Tees 
8021 .SBTTL END OF PASS ROUTINE 
8023 = * INCREMENT THE PASS NUMBER (S$PASS) 











8024 *TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yYyyyy'’ 
8025 s*WHERE XXXXX AND YYYYY ARE 7 weit NUMBERS 
8026 ;*IF THERES A MONITOR GO TO IT 
8027 >*IF THERE ISN'T JUMP TO LOOP 
8028 
80 046376 SEOP: 
8030 046376 004737 056506 JSR PC ,@4TYPTIME 
8031 046402 005067 132574 CLR STSTNM ey Se THE TEST NUMBER 
8032 6406 005067 132714 CLR STIMES :ZERO THE NUMBER OF ITERATIONS 
8033 046412 005267 132562 INC SPASS er THE PASS NUMBER 
8034 046416 042767 0 132554 BIC #100000, SPASS = DON'T ALLOW A NEG. NUMBER 
8035 046424 005327 DEC (PC)+ 3; ;LO00P? 
8036 046426 1 S$EOPCT: . WORD 
8037 6430 3063 BGT SDOAGN 2:Vés 
8038 046432 012737 MOV (PC)+,a(PC)+ ZZRESTORE COUNTER 
8039 046434 1 SENDCT: WORD 1 
8040 64 046426 SEOPCT 
2041 046440 104400 046446 TYPE <5 sTYPE ASCIZ STRING 
8042 046444 000407 64$ GET OVER THE ASCIZ 
8043 3765$: .ASCIZ <12><15>/END PASS # 
8044 046464 64$: 
8045 046464 016746 132510 MOV $PASS,-(SP) soe SPASS FOR TYPEOUT 
8046 TYPE PASS NUMBER 
8047 046470 104410 TYPDS £360 an pi et ans ASCII WITH SIGN 
8048 046472 104400 046500 TYPE ,67$ TYPE AS: “TRING 
8049 046476 000421 66$ [GET OVER - gel? 
8050 22678: ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
8051 046542 66$: 
8052 046542 016746 132446 MOV SERTTL,-(SP) 2 SAVE SERTTL FOR TYPEOUT 
8053 TOTAL NUMBER OF ERRORS 
8054 046546 104410 TYPDS $360 TYPE--DECIMAL ASCII WITH SIGN 
8055 046550 104400 001337 TYPE ,SCRLF ; TYPE CARRIAGE RETURN, LINE FEED 
8056 046554 005067 132434 CLR SERTTL S:CLEAR ERROR TOTAL 
000042 $GET42: MOV 33 




















010000 
377 


$DOAGN: 
SENULL: 


SP AAAAAAARAAAAAAERAAAAARARARAAARARAARRAEAATARAAAAAAATAAAERAR RRR EES 


- SBTTL 


a 
- 


FC SA AAAAAAAAAAAAAAARAAAAARAEAAAAAARARAAARAARERAARARAAAKAARE REARS 


SENDAD: 







442 ,R0 
SDOAGN 


T RETURN 
s NULL CHARACTER STRING 


RP11/RPO3 HANDLER 
SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
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8072 046610 104420 RP3DRV: SAVREG 
8073 046612 105037 001736 CLRB @A#RP3HSTA ZCLEAR DONE FL 
8074 046616 032737 000400 001736 BIT #B1T8,a#RP3HSTA SREPEAT FLAG, rap 
8075 046624 001403 BEQ 8$ “BRANCH IF NO 
8076 046626 104422 RESREG 
8077 046630 000137 050462 JMP @ARP3RPT 
8078 046634 013737 001604 001614 8$: MOV @ARNTBINX, @#RP311 :SAVE RUN TABLE INDEX 
046642 032737 000020 177570 BIT #SW4, aaSWR ‘INHIBIT RND DSK ADR? 
046650 001403 BEQ 1$ “BRANCH IF NO 
8081 046652 005000 CLR RO 
046654 005001 CLR R1 
8083 046656 000410 BR 4$ 
004737 060436 1$: JSR PC, a#$RAND :GO GET RANDOM NUMBER 
8085 013700 001552 MOV @4#$HINUM,RO [GET HI NUMBER 
8086 046670 013701 001550 MOV @ASLONUM.R1 [GET LO NUMBER 
8087 046674 073027 177771 ASHC  #=7,R0 ‘ADJUST TO FORM CYL ADR 
8088 046700 042700 177000 4$: BIC #177000,R0 :GET RID OF UNUSED BITS 
8089 046704 022700 000624 CMP #624 ,RO “LEGAL CYL? 
8090 046710 100003 BPL 5$ “BRANCH IF YES 
8091 046712 062700 000624 ADD #624 ,RO MAKE IT LEGAL 
8092 046716 000770 BR 4$ 
8093 046720 013702 001614 5$: MOV @A#RP311,R2 :GET RUN TABLE INDEX 
8094 046724 016203 001662 MOV RUNTBL (R2) ,R3 [GET DEVICE ID 
8095 046730 042703 000777 BIC #777 2RS [ID ONLY 
8096 046734 050300 BIS + COMBINE vite CYL ADR 
8097 046736 010062 001662 MOV ~ RUNTAL (R2) [PUT BACK IN TABLE 
8098 046742 072127 177775 ASH #5.R “GEN TRK=SECT ADR 
8099 046746 010103 MOV Ra > SAVE 
8100 046750 042701 160377 6$: BIC #160377.R1 GET RID alt JALL BUT TRK 
8101 046754 022701 011400 CMP #11400,R1 TLEGAL T 
8102 046760 100003 BPL 2$ = BRANCH iF ves 
8103 046762 062701 011400 ADD #11400,R1 [MAKE IT LEGAL 
8104 046766 000770 BR 
8105 046770 042703 177760 2$: BIC #177760.R3 :GET SECTOR ADR 
8106 046774 022703 000011 CMP #11,R3 ‘IS IT LEGAL? 
8107 047000 100003 BPL 3$ “BRANCH IF YES 
8108 047002 062703 000011 ADD #11,R3 [MAKE IT LEGAL 
8169 047006 000770 BR $ 
8110 047010 050301 3$: BIS R3,R1 : COMBINE TRK-SECT 
8111 047012 010162 001700 MOV R17 -RUNTRAK (R2) [PUT IN TABLE 
8112 047016 010037 002104 MOV RO. a#RP3HDC SSAVE DESIRED CYL 
8113 047022 010137 002 MOV R1.a#RP3DA >SAVE DSK ADR 
8114 047026 112737 177775 002132 MOVB  #-3, a#RP3TRY ‘INIT TRY COUNT 
8115 047034 032737 000040 172516 BIT #BI1TS, aaMMR3 “MAP ON? 
8116 047042 001405 BEQ $ “BRANCH IF NO 
8117 047044 005046 CLR -(SP) [PUT DEVICE ID ON STACK 
8118 047046 013746 001772 MOV eee *PUT OF BUS ADR ON STK 
8119 047052 004737 062676 JSR *GET MAP REGIS 
8120 047056 012737 000103 001612 7S: MOV Oe. SFRPS10 GET 
8121 047064 013700 001774 MOV @#RPSOLD+2 RO “GET BAE BITS 
8122 047070 072027 000004 ASH #4,RO ‘SHIFT TO BITS 4 & 5 
8123 047074 050037 001612 BIS RO. a#RP310 ‘COMBINE WITH FUNCTION 
8124 047100 010037 001774 MOV RO. a#RPSOLD+2 
8125 047104 013700 002052 MOV @#RP3UNI TRO 
8126 047110 072027 000010 ASH #10,R0 : SHIFT UNIT NO TO RIGHT BITS 
8127 047114 050037 001612 BIS RO, @#RP310 “COMBINE WITH FUNC & BAE 
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04-0 T= 


000404 
004737 


002052 
133006 


0604 36 
001552 
177775 


160037 
014300 
014340 
177773 


001662 
177770 
177740 


000020 
000012 


133002 
133002 


132752 
132750 


132724 


001740 


001620 
177570 


MACY11 gh 
RP11/RPO3 HANDLER 


R 
RP3WTRY: 


LDRP3: 


RTS 


M14 
04-OCT-79 09:00 PAGE 159 


RO, @#RPSUNIT 


@RP3DS 
RP3WIRY 
@ARPSUNIT ,ARP3CS 


PC ,@#LDRP 
#RPSSRV ,ARP3VEC 
@RP3PSW 

@ARP 3F UN 
@#RP310,aRPSCS 
@ARPSHDA , ARP SDA 
@ARPSHDC , ARPSDC 


@ARPSHWC , RP SWC 
 ~emae D,@RP3BA 


:1S DRIVE READY? 
[BRANCH IF 
SET UNIT Bits 
LOAD RP Res REGISTERS 


SET FUNCTION TO WRITE 
;LOAD FUNCT AND GO 
; RETURN 


PETIT S STi iii t iti t iii iit iti i iii titi iti iii it iitiiiiiiii iii iti i is) 
» SBTTL RK11/RKOS HANDLER 
SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 


mA ete eee RPE REREA REARS RRASESEERRRRRRSA STARR RRA SARS RRR SSSR ASSES DS | 


. 


RKDRV: 


5$: 


o$: 
7$: 


4$: 


3$: 


SAVREG 
C 


@ARKHSTAT 
y T8,Q@4#RKHSTAT 


@ARKRP 
SaRNTBINK. @ARK11 


#14340,R1 

4$ 

#-5,R1 
@eRK11,R2 
RUNTBL (R2) ,R3 
#777,R3 

R1,R 

R3.RUNTBL (R2) 
#177740,RO 


RO.R 
#B1IT4,RO 
#12,R0 
1$ 


;CLEAR DONE FLAG IN HANDLER STAT 
[REPEAT oo SET? 
BRANCH IF NO 


SAVE RUN TABLE INDEX 
:CLEAR DONE FLAG IN HANDLER STAT 
RANDOM DSK ADDRESS? 


;BRANCH IF YES 

CLEAR REGISTERS 

FOR ADDRESS CHECKING 
ET RANDOM NUMBER 


[CYLINDER ADDRESS 
7SAVE_IN R1 
:GET RID OF SURF-SECT BITS 
1S IT A LEGAL CYLINDER? 
BRANCH IF YES 
ADD MAXIMUM CYLINDER 
TRY AGAIN 
[ADJUST CYLINDER ADDRESS 
[GET RUN TABLE INDEX 
+ RUN TABLE ENTRY 
AVE ID AND UNIT NO. 
‘INSERT CYLINDER ADDR 
ZENTER CYLINDER ADR IN RUN TABLE 
[GENER SECTOR-SURF ADDRESS 
2GET, RID OF EXTRA BITS 


;SA 

:GET RID OF SURFACE BIT 
71S SECTOR ADDRESS LEGAL? 
[BRANCH IF YES 


ot 


SEQ 0181 
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132076 


132424 
132404 


132402 


132376 


8212 132374 


132346 


001746 


001622 
177570 





sag 7 eat ie 


RK1 


1$: 


2$: 


R 
RKWTRY: att 


6$: 


1/RKOS HANDLE 


N 14 
04-OCT-79 09:00 PAGE 160 


SEQ 0182 

#12,R0 :MAKE IT LEGAL 
#B1T4,RO [GET RID OF CARRY FROM ADD 
#17,R3 =GET SURFACE ADDRESS 

RO [GENER COMP SECT=SURF ADDRESS 
RO RUNTRAK (R2) [SAVE IN RUN TRAK TABLE 
#5.R1 TADJUST CYLINDER ADDRESS 
R1.RO SCONCATINATE TRK & SECT ADDR 
@ARKUNIT,R1 ‘GET UNIT NUMBER 
#15,R1 ZADJUST 
R1,RO :CONCATINATE UNIT, TRK, SURF ,SECT 
RO. @#RKHDA + SAVE 
#-3, QARKTRY iSET RETRY COUNT 
#8175, a#MMR3 MAP ON? 

“BRANCH IF NO 

#1,-(SP) [PUT DEVICE ID ON STACK 
#RKOLD,-(SP) “PUT ADDRESS OF ADR ON STACK 
PC, a#GE TMAP [GET MAP REG 
#103,RK10 *SET FUNCTION 
@ARKOLD+2,RO :GET BA EXTENDED 
#4 RO ADJUST 
RO. a#RK10 “PUT IN WITH FUNCTION 
RO, @#RKOLD+2 ; SAVE IN MEMORY 
@ARKHDA, ARKDA :LOAD DISK ADDRESS 
#B116,aRKDS IT READY? 
6 BRANCH IF NO 
@ARKHWC , ARKWC LOAD WORD COUNT 
@#RKOLD. ARKBA “LOAD BUS ADDRESS 
#RKSRV, ARKVEC ‘LOAD INTERRUPT VECTOR 
@RKPSW 
@ARKF UN :SET FUNCTION TO WRITE 
@#RK10, aRKCS 


;LOAD FUNCTION AND GO 
TURN 


SOO SIIOIUIOISIOIOIIOISIOIOIOIDIOIDIDIOIDIOIOIOIOIDIDIOISIGOIOIUIOIOIDIDIDISI SIDI IOIDIDIOIOIDISIIOIOIDIDIDIDE 
~SBTTL RH70/RP04 HANDLER 

: SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 
I IIIOIUISIOISISISISIOIIOISIDIOIOISIOIIOIOIUISIOIOISIOIOIIDIOIDIOI IO IIOIDIIOIDOISIDOIDIDIDINIT IDI 


ReaDRV: SAVREG 
RB 


@ARP4HSTA CLEAR DONE FLAG 
#B1T8,a4#RP4HST ;REPEAT FLAG SET? 
$ ;BRANCH IF NO 
@ARP4SRPT 
@ARNTBINX , @ARPS 11 7; SAVE RUN ae INDEX 
@ARPSHSTA :CLEAR DONE FLAG 
ASW4 , ASWR [RANDOM DSK ADDRESS? 
1$ BRANCH IF YES 
RO 
R1 
4$ 
PC ,a#SRAND GET RANDOM NUMBER 
@4'$HINUM,RO ;GET HI] NUMBER 
a4'$. ONUM ,R1 T LO NUMBER 

RO ;ADJUST TO FORM CYL. 


: ADR. 
[GET RID OF UNUSED BITS 


#-7 
#177000,R0 


QkC=D PDP 11/70-74mP Ce: — 


DE 
CEQKCD.P11 


04-0CT-79 0 
ore re 000637 


10000 
io dein 000637 
000770 


013702 001622 


MACY1? 30A(1052) 


B 15 
04-OCT-79 09:00 PAGE 161 


RH70/RPO4 HANDLER 


53: 


#637 ,RO 
#631 ,RO 
4$ 


BARPL 11 


oR2 


;LEGAL CYLINDER 
;BRANCH IF YES 
sMAKE IT LEGAL 


7GET RUN TABLE INDEX 


SEQ 0183 
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0 
050114 
050116 


050170 


050172 
050174 
200 


050242 
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001662 
000777 


001662 
177775 
160340 


000037 
011000 


011000 
020000 
177740 
000025 


177775 


000026 
052202 
132136 


0017506 
000400 


052666 
001604 
000020 


0604 36 


002135 
132140 
132066 


132070 


001750 


001624 
177570 


MACY11 30A(1052) 
RH70/RPO4 HANDLER 


2s: 


3$: 


RP4WTRY: 


LDRP4: 


C 15 
04-OCT-79 09:00 PAGE 162 


RUNTBL (R2) RS GET DEVICE Ly 

#777 23 7SAVE ID ONLY 

: COMBINE WITH CYL ADR 
ABL 


RO.R 

= RUNTBL (R2) 
RI CT ADR 

7160340, Ri GET RID OF UNUSED BITS 

R1 x? ; SAVE 


#37, °GET RID OF SECT BITS 
#1000, RI [LEGAL TRAK? 

SBRANCH IF YES 
of, 009. RI [MAKE IT LEGAL 
#BIT13.R “GET RID OF ADD CARRY 
a TyeO RS :GET SECTOR ADR 
#25 ,R3 LEGAL SECTOR 
3$ “BRANCH IF YES 
#25,,R3 [MAKE IT LEGAL 
#B1TS,R3 [GET RID OF ADD CARRY 
R3,R1 >COMBINE TRAK-SECTOR 
R1 .RUNTRAK (R2) [PUT TRAK-SECT IN TABLE 
RO. @#RPGHDC [SAVE CYLINDER ADR 
R1. @#RP4HDA SSAVE TRAK-SECTOR ADR 
#-3, AARPATRY ‘SET TRY COUNT 
PC, LDRP4 LOAD RP4 REGISTERS 


#RPUSRV -@RP4VEC ;LCAD INTERRUPT VECTOR 
@4RP4F UN [SET FUNCTION TO WRITE 


#161 ,aRP4CSi ;LOAD FUNCTION AND GO 
RETURN 

@ARP4UNIT ,ARP4SCS2 ;LOAD UNIT NUMBER 

#B1T12,aRP4OF SET FORMAT [OG 16 BIT 

@ARPSHDC , @RPSDC [LOAD CYLINDER ADR 

@ARPSHDA , @RPSDA ;LOAD TRAK~SECTOR 

@ARPSHWC , ARPSWC ;LOAD WORD COUNT 

@ARPSOLD +2 , ARP4BAE ;LOAD EXTENDED ADR BITS 

@ARPSOLD ,@RPSBA :LOAD BUS ADR 

PC RETURN 


REE ERE REE EEE REET Ree 
- SBTTL RH70/RSO04 HANDLER 
SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF HANDLER 


'WAAAALAAAAAALARASAASASAARASAARASARAASZASAARARSA SA RAASRA REAR RSS SRAR RAS DS 


REORV: 


3$: 


SAVREG 
CLRB 


@ARSHSTAT ;CLEAR DONE FLAG 
SOITe DORSHSTAT sREPEAT FLAG SET? 
3$ ;BRANCH IF 
@A4RSRPT 

@ARNTBINX,@ARS17 ; SAVE RUN TABLE INDEX 
#504, AASWR ;RANDOM DSK ADR? 
1$ ;BRANCH IF YES 

RO 

R1 

4$ 

PC , @ASRAND ;GET RANDOM NUMBER 





D 15 
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CEQKCD.P11 04-0CT-79 08:55 RH70/RSO04 HAND SEQ 0185 
8302 050246 013700 001552 MOV @4SHINUM, RO 

8303 050252 072027 177774 ASH #-4 RO 

8304 050256 010001 MOV RO,R1 :SAVE RANDOM NUMBER 
8305 050260 042700 170077 4S: BIC #170077,RO =GET TRACK ADR 

8306 050264 022700 007600 CMP #7600,RO sIS IT LEGAL? 

8307 050270 100003 BPL 5$ “BRANCH IF YES 

8308 050272 962700 007600 ADD #7600,R0 sMAKE IT LEGAL 

8309 050276 000770 BR 4$ 

8310 050300 013702 001624 S$: MOV @ARS11,R2 :GET RUN TABLE INDEX 
8311 050304 072027 177772 ASH #-6,RO ‘ADJUST TRACK ADR 
8312 050310 110062 001662 MOVB RO RUNTBL (R2) ZSAVE TRAK ADR IN RUN TAL 
8313 050314 042701 177700 6$: BIC #177 7700, R1 :GET SECTOR ADR | 
8314 050320 022701 000077 CMP #77,R1 y1S IT LEGAL? 

8315 050324 100003 BPL 2$ sBRANCH IF YES 

8316 050326 062701 000077 ADD #77,R1 *MAKE IT LEGAL 

8317 050332 000770 BR 6$ 

8318 050334 010162 001700 23: MOV R1,RUNTRAK (R2) ;SAVE IN RUN TRAK TABLE 
8319 050340 672027 000006 ASH #6,RO ‘ADJUST TRACK ADDR 
8320 050344 050100 BIS R1,RO = COMBINE SECTOR TRAK 
8321 050346 010037 002116 MOV RO, @A#RSHDA :SAVE AS DSK ADR 

8322 050352 112737 177775 002136 MOVB  #-3,@4RSTRY ‘SET TRY COUNT 

8323 050360 104422 ; RESREG 

8324 050362 004737 050422 RSWTRY: JS& PC, @A4LDRS :GO LOAD REGISTERS 
8325 050366 012777 052712 131670 MOV ARSSRV,@RSVEC ;SET INTERRUPT VECTOR 
8326 050374 005077 131666 CLR aRSPSW 

8327 050400 005037 002130 CLR @ARSFUN :SET FUNCTION TO WRITE 
8328 050404 105777 131650 1$: TSTB ~— aRSDS :IS DRIVE READY? 

8329 050410 001775 BEQ 1$ *BRANCH IF NO 

8330 050412 112777 000161 131622 MOVB 4#161,@RSCS1 :LOAD FUNCTION AND GO 
8331 050420 000002 RTI 

8333 050422 013777 002064 131624 LDRS: MOV @FRSUNIT ,ARSCS2 :LOAD UNIT NUMBER 
8334 050430 013777 002116 131614 MOV @ARSHDA, ARSDA :LOAD DSK ADR 

8335 050436 013777 001770 131600 MOV @ARSHWC , ARSWC LOAD WORD COUNT 

8336 050444 013777 002020 131576 MOV @ARSOLD+2, ARSBAE {TOAD EXTENDED ADDRESS 
8337 050452 013777 002016 131566 MOV @ARSOLD, A@RSBA 7LOAD BUS ADDRESS 
8338 050460 000207 RTS PC RETURN 

8340 DDI RT RITTER TOR TOT RRR RR Rk hk tk 
8341 .SBTTL RP11/RPO3 SERVICE ROUTINE 

8342 - SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
8343 MADARA AeSeSeSASASARAARASSASARASASASASASSSASALARAS SASS RAR RRL A SESSA SS | 
8344 050462 000005 RP3RPT: RESET 

8345 050464 005337 002120 DEC @ARP3F UN :RESTORE FUNCTION 
8346 050470 022737 000001 002120 CMP #1, @#RP3FUN sWHAT IS IT? 

8347 050476 001472 BEQ RP31 “BRANCH IF WC 

8348 050500 902402 BLT 1$ :BRANCH IF WRITE 

8349 050502 000137 047126 JMP @ARP3WIRY “BRANCH TG READ 

8350 050506 000167 000414 1$: JMP RP33 

8351 050512 005237 002120 RP3SRV: INC @ARP3F UN : INCREMENT FUNCTION 
8352 050516 022737 000002 002120 CMP #2, @ARP3FUN “WHAT IS IT? 

8353 050524 001501 BEQ RP 3wWCk SBRANCH TO WRITE CHECK 
8354 050526 100002 BPL +6 

8395 050530 000137 051166 IMP @ARP SREAD 


8357 FUNCTION JUST EXECUTED WAS A WRITE 
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CEQKCD.P11 


8358 
8359 


051026 


051030 


032737 
001036 
005777 
100045 


000002 


005777 


112737 
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000400 
131374 
002132 


000001 
131352 
002132 
177776 
047126 
100200 


001614 
100000 


100200 
131272 
100000 


177775 


000001 
131144 
002132 
177776 
050714 


000010 


177775 


001736 


131356 


001736 


901700 


001736 


001736 


001612 
131216 


001736 


131150 


131114 


002132 


MACY11 30A(1052) 


BIT #3118, @#RP3HSTAT 
BNE RP3LOOP 
TST @RP3CS 
BPL RP31 
TSTR a@ARP3TRY 
BEQ RP3ERR 
MOVB  #BITO,aRP3CS 
TSTB aRP3CS 
L ee 
INCB = @#RP3TRY 
MOV aePSwW,-(SP) 
MOV #RPBWIRY ,-(SP) 
RP3ERR: MOV 4 ped @ARP3HSTA 
MOV R0,- 
MOV SeAP ST a0 
BIS #81115, RUNTRAK (RO) 
MOV (SP) +,RO 
Rv! 
RP3LOOP :MOV #100200, @#RP3HSTAT 
TST @RP3CS 
BMI 1$ 
‘a: BI¢ #B1T15,a@#RP3HSTAT 
;WRITE WAS OK- NOW DO A WRITE CHECK 
RP31:  MOVB #-3,a4RP3TRY 
MOV #107 aARPS10 
BIS @ARP3OLD +2, @#RP310 
BIS @ARP SUNT, a#RP710 
RP32: JER PC, a#LDRP3 
V a#RP310, aRP3CS 
RTI 
RP3WCK : QARPSHSTA 
E RP3L 
TST aRP3CS 
BPL 
TST a#RP311 
BEQ 
S$: TSTB  @#RP3TRY 
BEQ ROZERR 
DEC FUN 
VB  #BITO,aRP3CS 
TSTB 
BPL 
INCB SeRPSTRY 
MOV aePsw,-(SP) 
MOV #RP32.-(SP) 
4$: BIT #B1T3,aRP3ER 


sWRITE CHECK OK- 
MOVS 


NOw DO A READ 
#-3 BARPSTIRY 


E 15 
04-OCT-79 09:00 PAGE 164 
RP11/RPO3 SERVICE ROUTINE 


nape, 
SEQ 0186 
;REFEAT } SET? 


STRIED 3 TIMES? 
[BRANCH IF YES 
:CLEAR THE DRIVE 
CONTROLLER READY? 


[BRANCH IF NO 

; INCREMENT TRY COUNT 
MAINTAIN SAME PSW 
:SET RETRY ADDRESS 


RETURN 
:SET ERROR BIT IN HAND. 


:GET RUNTABLE INDEX 
7SET ERROR BIT 
SRESTORE RO 


ANY ERRORS? 

[BRANCH IF YES 
cE TUR ERROR BIT 
RETURN 


7; INIT TRY COUNT 
SET FUNCTION 
SET BAE BITS 
7 SET 


STA 

SET DONE AND ERROR 
UNIT BITS 

[LOAD RP3 REGISTERS 


MO . ;LOAD FIINCTION AND GO 
RE TURN 
sFUNCTION JUST EXECUTED WAS A +r CHE CK 
BIT #BITS8, ZREPEAT FLAG SET? 
BN 3L00P :BRANCH IF YES 
ZANY ERRORS? 
1$ ;BRANCH IF NO 
sFIRST 2K? 
E 4$ ;BRANCH IF YES 
: : TRIED 3 TIMES? 
;BRANCH IF YES 
@ARP3 7RESTORE FUNCTION 
MO :CLEAR THE DRIVE 
~ 3cS > CONTROLLER READY? 
;BRANCH IF NO 
1 ; INCREMENT TRY COUNT 
:GO TRY AGAIN 
° ZWRITE CHECK ERROR? 
5$ ;BRANCH IF NO 
1$: , 3 sRESTORE TRY COUNT 
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21 
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032737 


000400 
130742 
002132 
002120 
000001 
130714 
002132 
177776 
051126 


000040 


063142 
00020U 


002122 
000001 


047542 
051762 
000001 


172516 


83s 


3 ot od 
WWAAGS 


1307206 


172516 


001736 


002122 


002122 


15 
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RP11/RPO3 SERVICE ROUTINE 


F 


SEQ 0187 


BIT #B175, aaMMR? :MAP ON? 
BEQ 2$ “BRANCH IF 
CLR =(SP) :PUT DEVICE wD ON STACK 
JSR PC, a#G] VEMAP “RETURN MAP REGISTER 
MOV #RP3NWL , - (SP) [PUT ADR OF BUS ADR ON STK 
JSR PC, @@GE TMAP :GET MAP REGISTERS 
2$ MOV RO. -(SP) AVE RO 
MOV @FRP 3NWH RO ‘Get BAE BITS 
ASH #4,R0 oa UST 
MOV " AVE 
MOV (SP)+,RO ‘RESTORE RO 
MOV #105, @#RP310 SET FUNCTION 
BIS BRP SNwH , A#RP310 [SET BAE BITS 
BIS BRP SUNIT, a#RP310 :SET UNIT NUMBER 
RP33: MOV @FRP HDA, aRP3DA ;LOAD DSK ADR 
MOV @ARPSHDC , ARP 3DC SLOAD CYL 
MOV BRP 3HWC . ARP SWC “LOAD WORD COUNT 
MOV @PRP3NWL . ARP =LOAD BUS ADR 
MOV @ARP310, ARP3CS :LOAD FUNCTION AND GO 
RT] RE TURN 
sFUNCTION JUST EXECUTED WAS A READ 
RPSREAD :BIT #BITB, AARPSHSTAT ZREPEAT FLAG SET? 
BNE RP3LOOP :BRANCH IF YES 
TST @RP3CS + ANY ERRORS? 
BPL 1$ “BRANCH IF NO 
TSTB = @#RP3TRY TRIED 3) TIMES? 
BEQ RP3ERR “BRANCH IF YES 
DEC @4RP3F UN “RESTORE FUNCTION 
MOVB  #BITO,aRP3CS [CLEAR THE DRIVE 
TSTB ~—s- @RP3CS = CONTROLLER READY? 
BPL 4 [BRANCH OF NO 
INCB = @#RP3TRY ‘INCREMENT TRY COUNT 
MOV aePSw,-(SP) 
MOV #RP33,-(SP) 
RTI :GO TRY AGAIN 
1$ BIT #B1TS, a4MMR3 [MAP ON? 
BEQ 2s “BRANCH IF NO 
CLR (SP) :PUT DEVICE ID_IN STk 
JSR PC, an VEMAP “RETURN MAP REGISTERS 
TST (SP) + SRESTORE STACK 
2$: MO #200, @#RP3HSTA 


:SET DONE FLAG 
RETURN 
'WMAAAAAAASAAARSASAASALLAAAASLALSESSR SR SRRRRRRRA SAS RRR AR RRR SRS RAS SE BS SG 


*SBTTL RK11/RKO5 SERVICE ROUTINE 


:* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 
LRA RRR REE ERE RETR E RRR ER RRA A RR Re 
RKRPT: RESET 

DEC @ARKF UN RESTORE om 

CMP #1, BARKF UN sWHAT IS IT 

BEQ RKi [BRANCH IF we 

BLT 1$ ;BRANCH IF WRITE 

JMP aARKWTRY sIT WAS A WRITE 
1$: JMP aARK 
RKSRV: ADD #7, GARKF UN :FIND OUT WHAT FUNCTION 


WAS EXECUTED 
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051350 


051354 
051362 


051462 


051464 
051472 
051476 
051500 
051506 


051510 
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022737 
001507 
100002 
000137 


032737 


001334 
005777 
100033 


000002 
052014 


000400 
130576 
002133 
000001 
052140 
130550 
002133 
177776 
047542 
100200 
001620 
100000 


100200 
130476 


100000 


177775 


000400 
130366 
001620 
002133 
002126 
000001 
052140 
130326 


002122 


001740 


130560 


001740 


001700 


001740 


001740 


130416 
130404 


601740 


130336 


G 15 
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RK11/RKO5 SERVICE ROUTINE 


CMP #2, JARKF UN sWAS IT A WRITE CHECK? 
BEQ RKWRCK BRANCH IF YES 
BPL +6 ;BRANCH IF IT WAS A WRITE 
JMP @ARKREAD 

7FUNCTION JUST ee WAS A WRITE. ANY ERRORS S? 
BIT 178, BPRKHSTAT REPEAT FLAG SET? 
BNE aL OOP “BRANCH IF YES 
TST @RKCS ; ANY oe i a 

RK 1 “BRANCH 
TSTB @ARKTRY ; TRYED 3" TIMES? 
BEQ RKERR “BRANCH IF YES 
MOV #1,ARKCS CLEAR THE ERROR 
JSR PC ,@4TIMER ;WAIT A LITTLE 
ud = sWAIT FOR CONT CLR TO FINISH 
L -~ 

INC! @FRKTRY : INCREMENT TRY COUNT 
MOV @APSW,- (SP) 
~ MRKWTRY,=(SP) 
q 

RKERR: MOV 4 pen g2 @ARKHSTAT 7SET ERROR & DONE FLAG 
MOV RO,-( SAVE RO 
MOV aon RO 7GET SAVED RUN TABLE INDEX 
BIS #B1T15.RUNTRAK (RO) ;SET ERROR BIT IN RUN TABLE 
MOV (SP)+,RO ZRESTORE RO 
RTI RETURN 

RKLOOP :MOV the a @ARKHSTAT ZSET DONE AND ERROR BITS 
TST @RKCS ANY ERRORS? 
BM] 1$ : BRANCH IF YES 
BIC #BIT15, Q@ARKHSTAT ;CLEAR ERROR BIT 

1$: RTI RETURN 

WRITE WAS OK, NOW DO A ha CHECK 

RK1: MOVB 4-3, QARKTR sRESTORE TRY COUNT 
MOV #507, ree) 7SET FUNCTION TO WRITE 
BIS @ARKOLD+2,.RK10 sSET BA EXT BITS 

RK2: MOV @A4RKHDA, @RKDA ;LOAD CISK ADDRESS 
MOV @ARKHWC , ARKWC :LOAD WORD COUNT 
MOV @A/RKOLD , ARKBA ;LOAD BUS ADDRESS 
MOV RK10,a@RKCS 2 START FUNCT ION 


RTI ;RETURN 


sFUNCTION JUST EXECUTED WAS A WRITE CHECK. ANY ERRORS ? 


RKWRCK :BIT #B1T8,QA#RKHSTAT REPEAT FLAG SET? 
BNE RKLOOP ;BRANCH IF YES 
TST @RKCS ANY ERRORS? 
BRL 1$ ;BRANCH_IF NO 
TST @A4RK11 FIRST 2k? 
BEQ 4$ ;BRANCH_IF YES 
5$: TSTB @ARKTRY ;TRYED 3 TIMES? 
BEQ RKERR BRANCH IF YES 
DEC @ARP4F UN SET FUNCTION BACK TO wf 
MOV #1 ,ARKCS :CLEAR THE ERROR 


JSR PC ,@#TIMER sWAIT A LITTLE 
Ho “= sWAIT FOR CLR TO FINISH 
L .7 


SEQ 0188 


ES 
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051676 


052004 
052012 


052014 


25189 


04-0CT 


105237 


002733 
177776 
051532 


040000 


177775 
000940 


127606 


000400 
130136 
002133 


177372 
002122 


000001 
052140 
130100 


002133 
177776 
051762 
600040 


000001 
063142 


000200 


000010 
000004 


130300 


002133 
172516 


127642 


2 3 ~  — 


001740 


130110 


172516 


001740 
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RK11/RKO5 SERVICE ROUTINE 


4$: 


2s: 


RKREAD: BIT 


3$: 


INCB OARKTRY 
MOV aePSw,-(SP) 
MOV #RK2,-(SP) 
RTI 
BIT MBITIS, ARKCS 
BNE 5$ 
sWRITE CHECK WAS OK, NOW DO A READ. 
1$: MOVB #-3 ,QARKTRY 
BIT #8175, a4MMR3 
BEQ 2$ 
MOV #1,-(SP) 
JSR PC,GIVEMAP 
MOV ARKNEWL , - (SP) 
JSR PC ,@4GE TMAP 
MOV RO,-(SP) 
MOV @ARKNE WH , RO 
ASH #4,RO0 
MOV RO, @ARKNEWH 
MOV (SP)+,R0 
MOV #105, RK10 
BIS QARKNEWH, RK10 
MOV @ARKHDA, ARKDA 
MOV @ARKHWC , ARK WC 
MOV @ARKNEWL , RKBA 
MOV RK10,a@RKCS 
RTI 
sFUNCTION JUST EXECUTED WAS A READ. 
#B1T8,Qa4RKHSTAT 
BNE RKLOOP 
TST @RKCS 
BPL 1$ 
TSTB @ARKTRY 
BNE $ 
JMP RKERR 
DEC @A4RKF UN 
MOV #1, ARKCS 
JSR PC, ,@4TIMER 
Ea S 
INCB @ARKTRY 
MOV @APSW,- (SP) 
MOV #RK3,-(SP) 
RTI 
BIT #B1TS, aaMMR5 
BEQ 2$ 
MOV #1,-(SP) 
JSR PC ,@4G] VEMAP 
TST (SP) + 
_ #200, @ARKHSTAT 
CLR 1$ 
INCB 1$ 
BNE 2$ 
RTS PC 


PAGE 167 


INCREMENT TRY COUNT 


HARD ERROR? 
;BRANCH IF YES 


ae teat TRY COUNT 
;MAP ON? 


;BRANCH IF NO 

PUT DEVICE ID ON STACK 
[RELINQUISH MAP REG 

;PUT ADR OF BADR ON STACK 
4 MAPREGISTER 


SRESTORE RO 

;SET FUNCTION 

[SET BA EXT BITS IN FUNCTION 
;LOAD DISK ADDRESS 

;LOAD WORD COUNT 

;LOAD BUS ADDRESS 

;LOAD FUNCTION AND GO 
RETURN 


ERRORS? 


sREPEAT FLAG SET? 


;SET FUNCTION BACK TO READ 
; CLEAR THE ERROR 

WAIT A LITTLE 

sWAIT FOR CLR TO FINISH 


; INCREMENT TRY COUNT 


;MAP ON? 

[BRANCH IF NO 

[PUT RK ID ON STACK 
[RELINQUISH MAP REGSTER 
:POP THE STACK 

:SET DON E FLAG 

RETURN 


SEQ 0189 


ee cee 


I 15 
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CEQKCD.P11 04-0CT=-79 08:55 RK11/RKOS SERVICE ROUTINE SEQ owe 
e2ne 052154 000000 1$: . WORD 
8584 EERE RARER ERATE EERE REE | 
8585 » SBTTL RH70/RPO4 SERVICE ROUTINE 
8586 ; SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE | 
8587 LL RRRA ATER RERE RARER EERE EERE AREER R ET RARER REE 
8588 052156 000005 RE4RPT: RESET 
8589 052160 005337 002126 DEC QARPSF UN ;RESTORE FUNCTION 
8590 052164 022737 000001 002126 CMP #1, QARPSF UN SWHAT IS IT? 
8591 052172 001501 BEQ RP41 ;BRANCH IF wC 
8592 052174 002560 BLT RP43 BRANCH IF READ 
8593 052176 000137 050064 JMP @ARPSWTRY :GO TO WRITE 
8594 052202 005237 002126 RPSSRV: INC @ARPSF UN 3FIND OUT WHAT FUNCTION 
8595 052206 022737 000002 002126 CMP M2, GARP4F UN WAS JUST EXECUTED 
8596 052214 001504 BEC RP4WCK 
tae 052216 100566 BM i RPSREAD 
8599 WRITE FUNCTION WAS JUST EXECUTED. 
8600 052220 032737 000400 001746 BIT #B1T8,Q#RPSHSTAT REPEAT FLAG SET? 
8601 052226 001050 BNE RP4LOOP [BRANCH IF YES 
8602 052230 032777 040000 127762 BIT ~~ hl @RPSDS sANY ERRORS 
8603 052236 001457 BEQ  —-RP4I “BRANCH IF NO 
8606 052240 105737 002135 TSTB @FRPSTRY TRIED 3 TIMES? 
8605 052244 001426 BEQ RP4ERR [BRANCH IF YES 
8606 052246 052777 000040 127740 BIS #BITS ,ARP4CS2 :CLEAR ALL ERRORS 
8607 052254 004737 050116 JSR PC ,a#LDRP4 ;RELOAD THE UNIT NO 
8608 052266 105237 002135 INCB @ARPLTRY ; INCREMENT TRY COUNT 
8609 052264 013746 177776 MOV a4PSwW,-(SP) ;SETUP THE STACK TO 
8610 052270 012746 050064 MOV #RP4WTRY ,-(SP) TRY WRITE AGAIN 
8611 052274 032737 000400 001746 BIT #B1T8,QA#RPSHSTAT TREPEAT FLAG SET? 
8612 052302 1006 BNE 2$ [BRANCH IF YES 
8613 052304 012777 000007 127670 MOV #7 ,ARP4CS1 :RECAL IBRATE 
8614 052312 105777 127702 1$: TSTB @RPSDS ;DRIVE READY? 
8615 052316 100375 BPL 1$ [BRANCH IF NO 
8616 052320 000002 2$: RTI 
8617 052322 012737 100200 001746 RP4SERR: MOV #100200 ,@#RPSHSTA SET ERROR & DONE BIT 
8618 052330 010046 MOV RO,- msi SAVE RO 
8619 052332 013700 001622 MOV @ARP411,RO 7GET RUN TABLE INDEX 
8620 052336 052760 100000 001700 BIS #81715, RUNTRAK (RO) SET ERROR BIT 
8621 052344 012600 MOV (SP) +,RO RESTORE RO 
aos 052346 009002 RTI 7 RETURN 
8624 052350 012737 100200 001746 RP4LOOP:MOV #100200, @#RPSHSTAT SET DONE AND ERROR BITS 
8625 052356 032777 040000 127634 BIT #B1T14,aRP4DS SANY ERRORS? 
8626 052364 001003 BNE 1$ ;BRANCH IF YES 
8627 052366 042737 100000 001746 BIC #B1T15,@ARPSHSTAT etn ERROR BIT 
8628 052374 000002 1$: RTI RETURN 
8629 ;WRITE OK...NOW DO_A WRITE CHECK. 
8630 052376 112737 177775 002135 RP41: $MOVB #-3, aARPSTRY INITIALIZE TRY COUNT 
8631 052404 105777 127610 RP42: TSTB @RP4DS 71S DRIVE READY? 
8632 052410 001775 BEQ RP42 ;BRANCH IF NO 
8633 052412 004737 050116 JSR PC ,@4LDRP4 
8634 052416 112777 000151 127556 MOVB = #157, a@RP4CS1 :LOAD FUNCTION AND GO 
aoe 052424 000002 RTI 


8637 FUNCTION JUST EXECUTED WAS A WRITE CHECK 








DEQKC=D PDP 11/70=74MP CPU EXERCISER 


CEQKCD.P1) 
052426 





052564 
052572 


052574 


052712 


032737 
001345 


105777 


04-0CT=79 08:55 


000400 


177775 
127456 


050116 


052536 
000200 


002130 
000001 


050362 
002130 


001746 
127554 


127526 


127476 


002135 


127432 
127422 
127410 


007746 
127406 


127360 


001746 


002130 


MACY11 30A(1052) 


J 15 
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RH70/RPOS SERVICE ROUTINE 


RP4WCK: 


3$: 


$: 
RPGS: 


RPGREAD :BIT 


1$: 


BIT #BITS,BARPGHSTAT 

BNE RP4LOOP 

BIT #BIT14, @RP4DS 

BEQ 1$ 

TSTB QARPGTRY 

BEQ RP4ERR 

DEC @ARPSF UN 

BIS MBITS ,ARPSCS2 

JSR PC ,@4LDRPS 

INCB QARPSTRY 

MOV @APSW,- (SP) 

~ #RP42 = (SP) 

* 

BIT #BIT14,aRP4CS2 

BEQ 2s 

TST @ARPS11 

BEQ $ 

BR 3$ 

WRITE CHECK WAS OK...NOW DO A READ. 

VB #-3, QARPSTRY 

TSTB @RPSDS 

BEQ RP43 

JSR PC ,@4LDRP4 

MOV @ARPSNWH , ARPSBAE 

MOV GARPSNWL , IRP4BA 

MOVB #171, @RP4CS1 

RTI 

sFUNCTION JUST EXECUTED WAS A READ. 
#BITB, QARPGHSTAT 

BNE RP4LOOP 

BIT #B1T14,aRP4DS 

BEQ 1$ 

TSTB @ARPSTRY 

BEG RP4ERR 

DEC @4RP4F UN 

BIS #BITS, ,ARP4CS2 

JSR PC ,@#LDRPS 

INCB @ARPSTRY 

MOV @4PSW.- (SP) 

ay #RP43,-( SP) 

ty #200, @4RPSHSTA 


inves. FLAG SET? 


[TRIED 3 TIMES? 


BRANCH IF YES 


sSET TO WRITE CHECK 
;CLEAR ALL ERRORS 
RELOAD THE UNIT NO 
; INCREMENT TRY COUNT 


sTRY A AGAIN 
WRITE ee ERROR? 
ANCH IF NO 


FIRST 2k? 


INITIALIZE TRY COUNT 
3 DRIVE READY? 


ANCH IF NO 


;LOAD REGISTERS 


;LOAD EXTENDED ADR BITS 
;LOAD BUS ADR 

;LOAD FUNCTION AND GO 
;RE TURN 


REPEAT FLAG SET? 
;BRANCH IF YES 
ANY ERRORS? 


;BRANCH IF NO 

; TRIED 3 TIMES? 

;BRANCH IF YES 

;SET FUNCTION TO A READ 
7CLEAR ALL ERRORS 
sRELOAD THE UNIT NO 

: INCREMENT TRY COUNT 


TRY AGAIN 
SET DONE FLAG 
;RE TURN 


AAR EERE RRR RRR ERT ERR A EERE R EERE Ee 
RH70/RSO04 SERVICE ROUTINE 
SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 


—WeAAREASAAASASAASASLESESRRSSR ARR RRR RRSR RRR SER RR SRE SE RRR RRR REESE SS 


*SBITL 
** 


RSRPT: 


RSSRV: 


RESTORE FUNCT ION 


; IF WC 
[BRANCH IF WRITE 
FIND OUT WHAT FUNCTION 





SEQ 0191 
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052716 


053110 


053112 


05 
053172 


053174 
053202 
053204 
053210 


04-0( T= 


022737 
001472 
100554 


032737 
001036 


105777 


Ae 


1404 
005737 
001401 


0069002 


000400 
040000 
002136 
000040 
050422 
002136 
177776 
050362 
100200 


001624 
100000 


100200 
040000 
100000 
177775 


127164 
050422 
000151 


000400 
040000 
002136 
002130 
000040 
050422 
002136 
177776 
053070 
040000 
001624 


002130 


001750 
127312 


127270 


001750 


001700 


001750 
127210 


001750 


002136 


127132 


001750 
127130 


127102 


127052 


MACY11 30A(1052) 


RH70/RSO4 SERVICE ROUTINE 


WRITE FUNCTION WAS JUST EXECUTED 
MBITS,QARSHSTAT ; 


RSERR: 


CMP #2, QARSFUN 
BEQ RSWCK 
BMI RSREAD 


RSLOOP 
BIT #B1T14,aRSDS 
RS41 
TSTB @ARSTRY 
RSERR 
BIS #BITS ,ARSCS2 
JSR PC ,@ALDRS 
INCB @ARSTRY 


MOV @4PSW,-(SP) 
MOV #RSWTRY = (SP) 


MOV RO,- 


MOV Baks 11 RO 
BIS #81715 RUNTRAK (RO) 
art (SP) +,RO 


: MOV #100200, SARSHSTAT 


BIT ahh eaten 
BIC #811715, a#RSHSTAT 


$: I 
sWRITE OK...NOW DO A WRITE CHECK 


MOVB #-3 ,AARSTRY 
DS 


JSR PC, @ALDRS 
MOVB  #151,aRSCS1 


R 
MOV Fey 322 @ARSHSTAT 





K 15 
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WAS JUST EXECUTED 


FLAG SET? 
BRANCH IF YES 
ANY ERRORS? 


;BRANCH_IF NO 

; TRIED 3 TIMES? 
BRANCH IF YES 
:CLEAR ALL — 
;LOAD UNIT # 

7 INCREMENT TRY COUNT 
>SETUP THE STACK TO 
TRY THE WRITE AGAIN 


ty — AND DONE BIT 


SAVE R 

:GET RUN TBL INDEX 
7SET ERROR BIT 
SRESTORE RO 


:SET DONE AND ERROR BITS 
ANY ERRORS? 

;BRANCH IF YES 

:CLEAR ERROR BIT 

RETURN 


INIT TRY COUNT 

31S DRIVE READY? 
[BRANCH IF NO 

;LOAD RS REGISTERS 
LOAD FUNCTION AND GO 
RETURN 


ee $a EXECUTED WAS A WRITE CHECK 


RSWCK 


3$: 


#B1T8,a#RSHSTAT 
RSLOOP 
BIT #B1T14,aRSDS 


BIS #B1TS,ARSCS2 
JSR a? @4LDRS 
INCB @ARSTRY 

MOV @4PSW,- (SP) 
ARS42,-(SP) 


BIT > ight: 
TST @ARS11 
2$ 


REPEAT FLAG SET? 
;BRANCH IF YES 

ANY ERRORS? 

;BRANCH_IF NO 

TRIED 3 TIMES? 

[BRANCH IF YES 

SET FUNCTION BACK TO WC 
: CLEAR THE ERROR 


; INCREMENT THE TRY COUNT 


TRY AGAIN 


WRITE CHECK ERROR? 
BRANCH IF NO 
FIRST 2k? 

SBRANCH IF YES 


«SEQ 0192 
| 








DEQKC=D PDP 11/70=-74MP CPU EXERCISER 


CEQKCD.P11 


053212 


053214 


05 
053350 


053352 
053354 
360 


04-OCT-79 


000747 


005037 
162704 


08:55 


177775 
127032 


00 
177776 
053222 


000200 


002136 


127006 
126776 
126764 


001750 
126762 


126734 


001750 


126312 
126304 


126610 


MACY11 30A('052) 


gy 3$ 
sWRITE CHECK WAS OK.. Pay A READ. 
2$: MOVB #-3. a#RSTR 
RS43: TSTB aRSb 
BEQ RS43 
JSR PC, @4LDRS 
MOV @ARSNE WH , ARSBAE 
MOV @FRSNEWL . ARSBA 
MOVB #171, aRSCS1 
RTI 
sFUNCTION JUST EXECUTED WAS A READ. 
RSREAD: BIT #BIT8, QARSHSTAT 
BNE RSLOOP 
BIT #B1T14,aRSDS 
BEQ 1$ 
TSTB @ARSTRY 
BEQ RSERR 
DEC @ARSF UN 
BIS #BITS,ARSCS2 
JSR PC,@4LDRS 
INCB @ARSTRY 
MOV @APSwW.- (SP) 
a #RS43,-(SP) 
1$: ae #200, BARSHSTAT 


L 15 
04-OCT-79 09:00 PAGE 171 
RH70/RSO4 SERVICE ROUTINE 


INIT TRY COUNT 
1S DRIVE — 


[BRANCH IF NO 
;LOAD RS REGISTERS 
LOAD BAE 


[LOAD BUS ADR 
;LOAD FUNCTION AND GO 
RETURN 


sREPEAT FLAG SET? 
;BRANCH IF YES 


7 ANY gy ge 


;BRANCH_IF NO 

TRIED 3 TIMES? 
[BRANCH IF YES 
RESTORE FUN TO READ 
: CLEAR a ERRORS 


[LOAD UNIT # 
: INCREMENT TRY COUNT 


TRY AGAIN 
SET a FLAG 
;RETUR 


Sik ano caieae madiiniaaiaidih eliahdidaadiemtidkan mene cietinnadineidiaae 


“SBTTL ee EXERCISER SERVICE ROUTINE 


E DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 


WEE eRR RE RRRRRERRSRRRASLARRAR RSE SRR RRR RR RRR R RRR RRR RRR RRR RRR RRR D SS OD | 


UBESRV: SAVREG 


RT] 


PC ,@#LDKT 

MUBE TBL +6,R4 
a(R4) 

UBE2 

#3,-(SP) 

PC ,a4G] VEMAP 
#SERRTB, UBE SAV 


UBE SAV+2 
#$ERRTB, UBEADR 
UBEADR+2 


@4*UBE 
#172400,a-(R4) 
PC, a#RESKT 


#64545 , QUBE TBL +6 


;UBE ERROR=IS IT LAST MEMORY? 
: CLR av$TMP10 


UBE 2 
SUB 


#4 RG 


:GO TO LCWw CORE 

:GET ADDRESS OF UBECRI 
WAS THERE AN ERROR? 

“BRANCH IF YES 

;PuT ey * ID_IN STACK 

:GIVE UP MAP REG 

: INITIALIZE UBE 


LOAD 


CC 
:GO BACK TO ORIGINAL CORE 


RESTART UBE 
RETURN 


ADJUST RS 


a 


SEQ 0193 


DEGKC=D PDP 11/70=74MP CPU EXERCISER 
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053702 
053710 


053712 


053766 


04-0C T= 


017403 


104420 


000002 
020003 
000400 


001526 


001610 


126442 


000000 


MACY11 30A(1052) PAGE 172 

UNIBUS EXERCISER SERVICE ROUTINE 
MOV @2(R4) ,R3 :GET BECR2 
BIC #20003,R3 [GET RID OF ADDRESS BITS 
CMP #400, Re ‘WAS ERROR A TIMEOUT? 
BNE UBEERR “BRANCH IF NO 
MOV @a(R4) , @#ERRBA “SAVE BUS ADR OF ERROR 
MOV 2(R4) , @AERRBA+2 
BIC #177774, AAERRBA+2 
JSR PC, a#PHYMAP :GET PHYSICAL ADDRESS THAT TIMED OUT 
SUB #4 aAPA1500 S ADJUST PHYSICAL ADR THAT FAILED 
SBC aPA2116 [UBE STOPS AT ADR+4 
CMP @4PA21 16, aAMXMMH | ‘AT MAX MEM HIGH? 
BHI ‘BRANCH IF HIGHER 
BLO MHOLE “BRANCH IF LOWER 
CMP @4#PA1500, a4MXMMLO SAT MAX MEM LO? 
BHI 1$ TBRANCH IF HIGHER 
BLO MHOLE [BRANCH IF LOWER 

1$: MOV #3,-(SP) [PUT DEVICE ID ON STACK 
JSR PC. a#GIVEMAP 
TST (SP)+ 
JSR PC, a#UBE INIT 
JSR PC. @#RESKT 
RESREG 
MOV #64545 , @UBETBL +6 
RTI 

MHOLE: MOV SP, a#STMP10 

UBEERR: MOV a4#$LPERR ,a#$TMP11 ;SAVE LOOP ARROR ADR 
MOV #UBE 3, a#$LPERR ;SET LOOP ADR 
MOV #22,R3 
TST ar$TMP10 
BNE 1$ 
ERROR f 

UBE3 

1$: MOV a#PA1500, a#$GDDAT 
MOV @4PA2116. a#SBDDAT 
ERROR 12 

RESTART UBE IN SAME MEMOR 
MOV arSTMP tt. SWSLPERR :RESTORE ERROR LOOP ADR 
MOV R4, = SP) TSAVE RG 
MOV #UBETBL .R4 [GET ADDRESS OF UBE TABLE 
MOV #172400, a(R) + *SET UBECC 
MOV @FUBEADR ,a(R4) + >SET UBEBA <15:00> 
CLR a4 (R4) [CLEAR ALL ERRORS 
MOV QFUBEADR+2,a(R4) + :SET EXT ADR BITS 
MOV #64545,a(R4) ART UBE 
MOV (SP) +,R4 ‘BT eTORE RG 
JSR PC, a#RESKT 
RESREG 
RTI RETURN 

MeOBRRERSBSSSGSASSASLSLASSSAS ESSERE SESE SERRE RSR ERS RRR SSR RRR RRR RES SRS ES SS | 
‘SBTTL MASS BUS TESTER SERVICE ROUTINE 
:* SEE DOCUMENTATION FOR FUNCTIONAL DESCRIPTION OF ROUTINE 


mA AERARERA SESSA SSASARARSRSERSRRE SERS RRR RRR RRR RARER RRR RR RRR RSE SS 


WBTSRV: SAVREG 


M 15 
04-OCT-79 09:00 


SEQ 0194 





000047 


000020 
001322 
001524 


001526 


001324 
002316 


000047 
000007 


000000 
064050 
000161 


4 ay PDP 11/70=74MP CPU EXERCISER 
79 08:55 


126260 


000000 


001524 
001610 
001606 


000000 


001324 
001212 


001226 
001230 


001212 


126010 


MACY11 30A(1052) 





N 15 
04-OCT-79 09:00 
MASS BUS TESTER SERVICE ROUTINE 


PC QFLDKT 
a4$TMP10 
#MBTTBL RS 
#B1T14,8(R4)+ 
PC, a#RESKT 
#161, aMBTTBL 


#10,R4 
#B1T11,a(R4) 
MBTERR 


#6 RS 
@(R4)+,a4PA1500 
@(R4) +, a#PA2116 
#4 ,@#PA1500 
@4PA2116 
@#PA1500 , aAAaMXMMLO 
MEMHOLE 

@4PA2116, @AMXMMH 
MEMHOL E 

(R4)+ 

#47 ,A(R4) 


#7 ,a(R4)+ 
a-12(R4) 
2$ 


SP ,@4#$TMP10 
OFSLPERR . O4$TMP11 
#1$,Q4SLPERR 
#20,R 

a#$TMP10 

2$ 
7 
1$ 

@4PA1500 , A#SGDDAT 
tahitian 
@4$TMP11 ,a#$LPERR 
AMBTTBL+10,R4 
a-(R4) ,RO 


a-(R4),R1 
a-(R4),R2 


Re 

R2,R1 

RO 

#47 ,a10(R4) 
#7,910(R4) 
(RS 


PC. @ARESKT 
#161, aMBTTBL 


PC Aeeteaeeeeeraeraedaaakenarenaaananeneraenenegaeranenaeareneneseeeeie 





:GO TO LOW CORE 
on ae ty OF ADDRESS OF CS1 REG 


cH iF YES 
60 BACK TO ORIGINAL CORE 


:RESTART MT AND RETURN 
:NON-EXISTANT MEMORY ERROR? 


IGET BUS ADR EXT 
;ADJUST BUS ADR 


71S IT LAST MEMORY? 
;BRANCH IF NO 
;CHECK EXT ADR BITS 


CLEAR THE ERROR 


: SAVE LOOP ADDRESS 
‘PUT DEVICE ID IN R3 


RESTORE LOOP ADR 
GET ADR OF MBTTBL+10 
‘er BUS pr EXTENDED 


WORD COUNT 
[FORM START ADR OF THIS XFER 


RESTORE BUS ADR 

:GO BACK TO ORIGINAL CORE 
START MBT AGAIN 

: N 


B 16 : ] 
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CEQKCD.P11 04-OCT-79 08:55 LINE CLOCK SERVICE ROUTINE SEQ 0196 
8918 .SBTTL LINE CLOCK SERVICE ROUTINE 
8919 :* S ROUTINE FIRST REMAPS PROGRAM EXECUTION TO LOw 
8920 :* MEMORY IT THEN INCREMENTS AND KEEPS TRACK OF THE 
8921 :* SECOND AND MINUTE COUNTS KEPT IN LOCATIONS ‘LTICKS"’ 
8922 :* AND ‘MTICKS'’ RESPECTIVELY. 
8923 WER ARAAAAAAAAAARALASZAAAARAAALASZASASZAAALASASAALAALESASALSASAL AAAS SSS j 
8924 054300 1046420 LKSRV: SAVREG 
8925 054302 004737 063752 JSR PC ,@#LDKT GO TO LOW CORE 
8926 054306 105237 001630 INCB  aMcTICKS “INCREMENT TICK COUNT 
8927 054312 122737 000074 001630 CMPB «#60. ,@ALTICKS [ONE SECOND YET? 
8928 054320 001014 BNE 1$ ;BRANCH IF NO 
8929 054322 105237 001631 INCB = @ALTICKS+1 ; INCREMENT SECOND COUNT 
8930 054326 105037 001630 CLRB = @ALTICKS ;CLEAR SECOND COUNT 
8931 954332 122737 000074 001631 CMPB «#60. ,@ALTICKS+1 7ONE MINUTE YET? 
8932 054340 001004 BNE 1$ [BRANCH IF NO | 
8933 054342 105037 001637 CLRB = @MLTICKS+1 
8934 054 005237 001626 INC aMTICKS ; INCREMENT MINUTE COUNT 
8935 054352 004737 064050 1$: JSR PC ,@A#RESKT ;RESTORE THE KT 
8936 054356 104422 RESREG 
8937 054360 012737 000100 177546 MOV #B1T6, @ALKS ;CLEAR READY BIT IN CLOCK 
8938 054366 000002 RTI ;RE TURN 
8940 FFARR AAAAAAAAAAARAAARAERAARAERARARARAARARRAREEKAARHERERRARRARRERERAAAERD 
B94 1 
892 .SBTTL SCOPE HANDLER ROUTINE 
8944 :*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT | 
89465 ;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

8946 ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

8947 5 *SW14=1 LOOP ON TEST 

8948 > *SW11=1 INHIBIT ITERATIONS 

8949 > *SWO9=1 LOOP ON ERROR 
8950 3 *CALL 

8951 ;* SCOPE ;;SCOPE=I0T 

8952 

8953 054370 SSCOPE : 

8954 054370 032737 040000 177570 BIT #SW14,aASWR :;LOOP ON PRESENT TEST? 

8955 954376 001077 BNE SOVER SYES IF SwW14=1 

8956 ;MAMAMSTART OF CODE FOR THE XOR TESTEnAaaae | 
8957 054400 000416 $XTSTR: BR 6$ ; IF RUNNING ON THE SOR TESTER CHANGE 

8958 ;THIS INSTRUCTION TO A ‘NOP’ (NOP=240) | 
8959 054402 013746 000004 MOV @VERRVEC,-(SP) SAVE. THE CONTENTS OF THE ERROR VECTOR | 
8960 054406 012737 054426 000004 MOV #5$ , a#ERRVEC :7SET FOR TIMEOU 

8961 054414 005737 177060 TST a#177060 TIME. OUT. ON. XOR? 

8962 054420 012637 000004 MOV (SP) +, @#ERRVEC : :RESTORE THE ERROR VECTOR 

8963 054424 000453 BR SSVLAD :GO_TO THE NEXT TEST 

8964 054426 022626 5$: CMP (SP)+, (SP) + ;;CLEAR THE STACK AFTER A TIME OUT 

8965 054430 012637 000004 MOV (SP)+,@MERRVEC ;;RESTORE THE ERROR VECTOR 

8966 054434 000413 BR 7$ LOOP ON THE PRESENT TEST 

8967 054436 6$: ;MAAAAEND OF CODE FOR THE xOR’ TESTERMMAMH 

8968 054436 105767 124542 2$: TSTB = SERFLG 77HAS AN ERROR OCCURRED? 

8969 054442 001421 BEQ 3$ >:BR IF NO 

8970 054444 126767 126547 124532 CMPB = SERMAX,SERFLG =; ;MAX. ERRORS FOR THIS TEST OCCURRED? 

8971 054452 101015 BH: ;:BR IF 

8972 054454 032737 001000 177570 BIT WBITO9,a#SWR =; ; LOOP_ON ERROR? 

8973 054462 001404 BEQ 4$ ::BR IF NO 








C 16 
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CFQKCD.P11 04-OCT-79 08:55 SCOPE HANDLER ROUTINE SEQ 0197 | 
| 
8974 054464 016767 124522 126516 7S: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE | 
8975 054472 000441 BR SOVER 
8976 054474 105067 124504 4$: CLRB = SERFLG 7: ZERO THE ERROR FLAG | 
8977 054500 005067 124622 CLR $TIMES ;ECLEAR THE NUMBER OF ITERATIONS TO MAKE | 
8978 054504 000415 BR 1$ TESCAPE TO THE NEXT TEST 
8979 054506 032737 006000 177570 38: BIT #BIT11,a#SwR ; INHIBIT ITERATIONS? 
8980 054514 001011 BNE 1$ IF YES 
8981 054516 105767 124456 TSTB. —s $PASS aC FIRST PASS OF PROGRAM 
8982 054522 001406 BEQ i$ INHIBIT ITERATIONS | 
8983 054524 005267 124456 INC $ICNT * INCREMENT ITERATION COUNT 
2984 054530 026767 124572 124450 CMP STIMES,SICNT — [;CHECK THE NUMBER OF ITERATIONS MADE | 
8985 054536 002017 BGE SOVER [BR IF MORE ITERATION REQUIRED | 
8986 054540 012767 000001 124440 1$: MOV #1,$ICNT ; PREINITIALIZE THE ITERATION COUNTER 
8987 054546 016767 0000466 124552 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
8988 054554 011667 124430 $SVLAD: MOV (SP) , $LPADR :=SAVE SCOPE LOOP ADDRESS 
8989 054560 011667 124426 MOV (SP) “$LPERR t:SAVE ERROR LOOP ADDRESS 
8990 054564 005067 124540 CLR $ESCAPE *= CLEAR THE ESCAPE FROM ERROR ADDRESS | 
8991 054570 112767 000001 124421 MOVB #1,SERMAX sZONLY ALLOW ONE(71) ERROR ON NEXT TEST 
8992 054576 105767 124402 SOVER: TSTB $ERFLG ;:ANY ERRORS? 
8993 054602 001403 BEQ 1$ BRANCH IF NO | 
8994 0546046 116737 126374 001203 MOVB = $ERFLG, a#STSTNM+1 
8995 054612 016716 124372 1$: MOV $SLPADR, (SP) 7 FUDGE ~ aa ADDRESS 
8996 054616 000002 RTI FIXES 
8997 054620 000010 $MXCNT: 10 MAX. NPBER OF ITERATIONS | 
8998 -s SEARTERREERAERERERERERNREONSEAREHEDREREREOEEEENSOORNHEETO8EEORER 
8999 
aia -SBTTL ERROR HANDLER ROUTINE 
9002 z*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
9003 ;*SAVE THE ERROR ITEM Yoo AND THE ADDRESS OF THE ERROR CALL 
9004 ‘*AND GO TO $SERRTYP ON ERROR 
9005 SeTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3006 + ®SW15=1 HALT ON ERROR 
9007 ;* HALT CAN OCCUR BEFORE — AFTER THE ERROR TYPEOUT 
9008 + ®SW13=1 INHIBIT ERROR TYPEOUTS 
+ SW10=1 BELL ON ERROR 
9010 + SWO9=1 LOOP ON ERROR 
9011 7 *CALL 
y= 4s ;* ERROR N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 
9014 054622 SERROR: 
9015 054622 116737 224356 001203 MOVB SERFLG, aaSTSTNM+1 
9016 054630 105267 124350 7$: INCB —SERF :sSET, THE ERROR FLAG 
G17 054634 001775 BEQ 7$ “DON'T LET THE FLAG GO TO ZERO 
9018 054636 016737 124340 177570 MOV $TSTNM, aA#DISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
9019 054644 005737 177570 TST aeSwR ::HALT ON ERROR = 1? 
9020 054650 100001 BPL 8$ ; ;BRANCH IF NO 
9021 054652 000000 HALT *YES=-HALT 
9022 054654 032737 002000 177570 8%: 81 T #91710 ,awSuR at ON ERROR? 


, SBELL 2 sRING BELL 


SERTTL COUNT THE NUMBER OF ERRORS 

(SP) , SERRPC “GET ADDRESS OF ERROR INSTRUCTION 
#2, SERRPC 

@SERRPC,SITEMR ;;STRIP AND SAVE THE ERROR ITEM CODE 


054714 032737 #B1T13,a4SwWR ::SKIP TYPEOUT IF SET 
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9030 054722 001004 BNE 2$ sSKIP TYPEOUTS 
9031 054724 004767 000056 JSR PC ,SERRTYP :2G0 TO USER ERROR ROUTINE 
9032 054730 104400 001337 TYPE —, $CRLF 
9033 054734 005737 177570 2$: TST @ASWR :7HALT ON ERROR 
9034 054740 100001 BPL 9$ 3:SKIP IF CONTINUE 
9035 054742 000000 HALT :: T ON ERROR! 

054744 022767 046570 123070 9$: CMP MSENDAD ,42 3sACT=11? 
9037 054752 001001 3$ ; sBRANCH IF NO 
9038 054754 000000 HALT s YES 
9039 054756 032737 001000 177570 38: BIT #BITO9, aaSwR ;:LOOP ON ERROR SWITCH SET? 
9040 054764 001402 BEQ 4$ :BR_ IF NO 
9041 054766 016716 124220 MOV SLPERR, (SP) ; : FUDGE RETURN FOR LOOPING 
9042 054772 005767 124332 4$: TST $SESCAPE CHECK FOR AN ESCAPE ADDRESS 
9043 054776 001402 BEQ 5$ >7BR_ IF NONE 
9044 055000 016716 124324 MOV SESCAPE , (SP) ;FUDGE RETURN ADDRESS FOR ESCAPE 
9045 055004 5$: 
9046 055004 000002 RTI 7 ;RETURN 
9047 LL ARERR ERE RERERERRERERERREREREERRRRO REEDS 
+ a -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
9050 :*THIS ROUTINE FIRST TYPES A STANDARD MESSAGE CONSISTING OF THE 
9051 :*VIRTUAL PC, THE PHYSICAL PC, THE PSW AT THE TIME OF THE ERROR CALL, 
9052 :*AND THE SUB-PASS COUNT. THE SUB-PASS COUNT CONSISTS OF THE SUB PASS COUNT IN THE 
=} s sHIGH BYTE AND THE PASS COUNT IN THE LOW BYTE. 
9055 fall THEN USES THE ‘‘ITEM CONTROL BYTE** (SITEMB) TO DETERMINE WHICH 
9056 >*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’' 
9057 ;*THE ERROR MESSAGE POINTER AND TYPES THE ERROR MESSAGE. THE DATA 
9058 :*HEADER POINTER IS THEN OBTAINED AND A DATA HEADER IS TYPED. 
9059 ;*THE DATA POINTER AND DATA FORMAT ARE THEN OBTAINED. THERE ARE 
oer ;*FOUR TYPES OF DATA FORMAT, AS FOLLOWS: 
9062 s* 0 TYPE THE CONTENTS OF THE DATA TABLE WORD IN 
9063 * 6 DIGIT OCTAL FORMAT 
9064 s* 1 CONVERT THE CONTENTS OF THE DATA TABLE WORD TO 

5 :* 22 BITS AND TYPE AN 8 DIGIT OCTAL NUMBER 
“ye 2 TYPE THE CONTENTS OF THE DATA TABLE WORD AND 

9067 id THE WORD+2 IN 8 DIGIT OCTAL FORMAT 
9068 s* 3 USE THE CONTENTS OF THE DATA TABLE WORD AS A 
9069 39 DEVICE ID AND TYPE THE DEVICES NAME 
9070 hs 4 CONVERT THE TWO WORDS POINTED TO THE DATA 
9071 * TABLE TO FLOATING POINT FORMAT AND TrPE. 
9072 » 5 CONVERT THE FOUR WORDS POINTED TO BY "THE DATA 
9073 Sed TABLE TO FLOATING DOUBLE FORMAT AND TYPE 
9074 DD TI REE REE ERE ERE EER EERE Eee 
9075 
9076 055006 104420 SERRTYP: SAVREG 
9077 055010 104400 001337 TYPE ,SCRLF "CARRIAGE RETURN'' & "LINE FEED’ 
9078 055014 004737 056506 JSR PC ,a#TYPT IME 60 TYPE THE TIME 
9079 055020 104400 064510 TYPE -MSG3 

955024 1044 001337 TYPE , SCRLF 
9081 055030 016746 124164 MOV SERRPC ,-(SP) 2 SAVE SERRPC Ayal TYPEOUT 
9082 TYPE THE VIRTUAL PC 
9083 055034 104402 TYPOC :t60 TYPE=-OC TAL ASCII CALL DIGITS) 


9084 0 ,8$ 
9085 055042 013700 001522 MOV a VADR ,RO 7SAVE VADR 
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@ASERRPC ,@AVADR 
ee 


FSI TEMB 
42$ 


PC ,@#CNVADR 
4 @4VADR 


pote galt oa 


(SP) +, 30$ 


at 
30(SP) ,-(SP) 


,8$ 
SMAINT ,=(SP) 


-8$ 
$1STNM, - (SP) 
1(SP) 


, 8$ 
@ASUBPASS ,-(SP) 
#60, (SP) 


-8$ 
$PASS ,~(SP) 


, SCRLF 

RO 
a4$1TEMB.RO 
6$ 


R 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

-$CRLF 
(RO)+,4$ 
5$ 





00 PAGE 177 
SEQ 0199 


;SAVE THE VIR PC FOR CONVERSION 


ERROR ox 
[BRANCH IF 
; CONVERT TO "2 BITS 


;PUT ADDRESS OFPC ON STACK 
;CONVERT TO ASCII 

:GET RID OF 3 MS DIGITS 
;SAVE POINTER TO ASCII 
sTVPE 27 


;GET PSw AT TIME OF ERROR 
sTYPE iT 


:2SAVE SMAINT FOR TYPEOUT 
72 TYPE THE MAINTENANCE REG 
3:GO TYPE--OCTAL ASCIIC(ALL DIGITS) 


7 TYPE THE TEST NUMBER 


SAVE SPASS FOR TYPEOUT 
7 TYPE THE PASS COUNT 
[GO TYPE=-OCTAL ASCII(ALL DIGITS) 


zPICK UP THE INDEX 
sEXIT IF ZERO 
:I1S THIS ERROR 7? 
foe IF YES 
;;ADJUST THE INDEX SO THAT IT WILL 
a5 WORK FOR THE ERROR TABLE 


ORM TABLE POINTER 
BT CKUP “ERROR MESSAGE** PCINTER 
:SKIP TYPEOUT IF NO POINTER 
ibe THE ‘ERROR MESSAGE" 


: PICKUP ‘DATA HEADER’’ POINTER 
:: SKIP TYPEOUT IF 0 
77 TYPE THE “DATA HEADER" 
7’ DATA HEADER’ POINTER GOES HERE 


Pos 
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055326 104400 001337 TYPE -SCRLF 3 3" "CARRIAGE RETURN’’ & "LINE FEED" 
055332 012001 5$: MGV (RO)+,R1 PICKUP ‘DATA tae’? POINTER 
055334 001004 BNE 7$ 7:GO TYPE’ THE DATA 
055336 104422 6$: RESREG 
055340 104400 001337 TYPE ,SCRLF : : "CARRIAGE RETURN’' @ "LINE FEED** 
055344 000207 RTS PC RE TURN 
055346 011002 7$: MOV (RO) ,R2 ‘GET "DATA FORMAT’’ POINTER 
055350 122712 000001 108: CMPB #1, (R2) [DATA FORMAT 1? 
055354 001424 BEQ 9$ ZBRANCH IF YES | 
055356 122712 000002 CMPR #2, (R2) ZDATA FORMAT 2? 
055362 001441 BEQ 11$ SBRANCH IF YES 
122712 000003 CMPB #3, (R2) ;DATA FORMAT 3? 
055370 001445 BEQ 24$ sBRANCH IF YES 
055372 122712 000004 CMPB #4, (R2) =DATA FORMAT 4? 
055376 001456 BEQ 40$ [BRANCH IF YES 
055400 122712 000005 CMPR #5, (R2) ZDATA FORMAT 5? 
055404 001465 BEQ 60$ sBRANCH IF YES 
. fF TAAAARAAAAAAAAAAAAARAAAAARAAAHARAARAAAARARARAARAARAAAARAERRARTHEREED 
DATA FORMAT 0 | 
055406 005202 INC R2 : INCREMENT FORMAT POINTER 
055410 013146 MOV @(R1)+,-(SP) zPUSH DATA TO BE TYPED 
055412 104402 TYPOC 
0554146 005717 13$: TST (Ri) ZANY MORE DATA? 
055416 001747 BEQ 6$ :BRANCH IF NO 
055420 104400 056260 TYPE 8S sTYPE TWO SPACES 
055424 000757 BR 10$ 
STATA AARAAAARARAAAAAAAAAAAERAEAAEERARARAAEARRARERARARRRERERARR ETRE Eh 
=DATA FORMAT 1 
055426 005202 os: INC R2 : INCREMENT roomat POINTER 
055430 004737 062432 JSR PC, @#CNVADR [GET 22 BIT A | 
055434 012746 001524 14$: MOV #PA7500,-(SP)  =PUSH ADR OF 3 BIT ADR 
055440 004737 057544 JSR PC, a¥$DR20 :CONVERT TO ASCII 
055444 062716 000003 ADD #3, (SP) ' SDELETE LEADING ZEROS 
055450 012667 000002 MOV (SP) +, 128 “GET ADR OF ASCII STRING | 
055454 104400 TYPE 
055456 000000 12$: . WORD 
055460 062701 0000062 ADD #2,R1 ; INCREMENT R1 
055464 000753 BR 13$ 
Ff MAA AAARARRAAAEAAARAAAAARAAAAAARAARARARRARARARAHHRRAARAAHAERAEAAAR Eh 
=DATA FORMAT 2 
055466 005202 11$: INC R2 : INCREMENT FORMAT POINTER 
055470 011100 MOV (R1),RO 
055472 012037 001524 MOV (RO) +, a#PA1500 
055476 011037 001526 MOV (RO), BAPA2116 
055502 000754 14$ 
VPA RRRRRRSRARSAARAR SARS SR SER ER RRR RRR RRR SAR RR RRR RAR SSR RRR SRS RRS SS | 
“DATA FORMAT 3 
055504 005202 248: INC R2 : INCREMENT FORMAT POINTER 
055506 013167 000016 MOV a(R1)+,25$ :GET DEVICE ID 
055512 062767 064440 000010 ADD HMSGINX, 25% FORM ADR OF ASCI7Z7 ADR 
055520 017767 000004 9000002 MOV a25$,25$ “GET ADR OF ASCIZ 
055526 104400 TYPE 
055530 000000 25$: WORD 
055532 000730 BR 13$ : CONT INUE 


DEAR RRR RRRRR RRR SR RRRRRRRRRRRRRR RRR RRR RRR RR RRR RRR RRR RRR SSS 


“DATA FORMAT 4 


Ce ee 
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40$: INC R2 
MOV (R1)+,44$ ;GET ADDRESS OF DATA 
FL20 ; CONVERT TO FLOATING FORMAT 
44$: WORD 
MOV (SP)+,45$ ;GET ADDRESS OF ASCIZ STRING 
TYPE ; TYPE THE DATA 
45$: . WORD 
BR 13$ 
CPoASBAAAAAAASARAASAARARASASARSASRR SSSR ARRAS RRR RASA RRR RRR RRR SRR RRR RR SRA S SO 
“DATA FORMAT 5 
60$: INC R2 ; INCREMENT FORMAT POINTER 
MOV (R1)+,61$ ;GET ADDRESS OF DATA 
FLD20 Z CONVERT TO FLOATING ASCIZ 
61$: WORD 
MOV (SP) +,62% ;GET ADDRESS OF ASCIZ STRING 
TYPE ; TYPE THE DATA 
62%: . WORD 
BR 13$ 
FF UARAAAAAAERAAAAAARRARRRARRERARERARAAAERAARARAAERAAAARRERAAHRARARED 
sERROR 7 DECODE 
15$: MOV R3,RO ZSAVE R3 
ADD AMSGINX,RO :GEN ADRS OF ASCIZ 
MOV (RO), 16$ 
TYPE 
16$%: . WORD 
TYPE ,65$ si TYPE ASCIZ STRING 
QR 643% ::GET OVER THE ASCIZ 
TS pg -ASCIZ /FAILED/<CRLF> 
MOV R3,RO ;SAVE DEVICE ID 
CMP #10, RO sMASS BUS DEVICE? 
BLE ZBRANCH IF YFS 


TYPE yi a 
BR 18$ 


RRR AREER EERE AERA AAERRERAEEREHEREERREEKRER ERE ee 


[MASS BUS ERR 
17$: CMP 


#20,R3 :MBT ERROR? 
BEQ 26$ ‘BRANCH IF MBT ERROR 
BLT 27$ “BRANCH IF UBE ERROR 
TYPE “MSG13 
CMP #12.R0 :WAS IT RS? 
BNE 29$ “BRANCH IF NO 

WPA RBABBRASRASRASAAASALASZASSARARSA SSSR SASSER ARR AARSARARA RARER RSS S SRR SS 

:UNIBUS ERROR OR RSO4 ERROR 

18$: ADD AREGINX,RO :FORM ADR OF REG TABLE 
MOV (RO) ,RO ‘GET ADR OF REG TABLE 
CMP #2,R3 *RP3 OR RK? 
BEQ 20$ “BRANCH IF RK 
BMI 218 “BRANCH IF NOT RPO3 
MOV #7 RS :SET RPO3 SOB COUNT 
BR 228 

20$: MOV #6 RS :SET RKOS SOB COUNT 
BR 22$ 

21$: MOV #11,R4 :SET RSO4 SOB COUNT 
BR 22$ 


fF SAAR AAAAAARARARARAAAAEAHERAARAHEARARERARAAAARAAAAAAAARAHAAHHK ANA RAN Ae 


SEQ 0201 
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9254 :MBT ERROR 
9255 055740 104400 065131 268: TYPE .MSG16 
9256 055744 012706 900011 MOV #117,R4 :SET MBT SOB COUNT 
9257 055750 062700 064414 288: ADD #REGINX,RO 
9258 055754 011000 MOV (RO) ,RO ;GET ADR OF MBT TABLE 
9259 055756 000405 BR 22$ :GO TYPE REGISTERS 
9260 :UNIBUS EXERCISER ERROR 
$261 055760 104400 065240 57$: TYPE “MSG17 
9262 055764 012704 000004 MOV #4 RS 7SET UBE SOB COUNT 
9263 055770 000767 BR 28$ :GO TYPE UBE REGISTERS 
9264 055772 013046 22%: MOV a(RO)+,=(SP) GET DATA IN REG 
9265 055774 104402 TYPOC YPE IT 
9266 055776 104400 056260 TYPE 8S ‘TYPE TWO SPACES 
9267 056002 077405 S0B R4, 228 > CONT INUE 
9268 PETIT T ITEC tT TTI Tite tt it it ttt ttt tite t ttt t it ieee ie 
9269 :THIS CODE TYPES A PHYSICAL BUS ADDRESS IF THE ERROR WAS AN RPO3, 2k05, OR URE 
9270 056004 022708 000022 CMP #22,R3 ;UBE ERROR? 
9271 056010 001454 BEQ 73$ :BRANCH IF YES 
9272 056012 022703 000002 CMP #2,R3 RKOS? 
9273 056016 002445 BLT 323 anode IF NOT RK OR RPOS 
9274 056020 001005 BNE 70$ [BRANCH IF RPO3 
9275 :RKOS ERROR 
9276 056022 104400 065434 TYPE .MSG22 
9277 056026 012700 002166 MOV ARKCS,RO ;GET ADR OF ADR OF RKCS REG 
9278 056032 000404 BR 71$ 
9279 ;RPO3 ERROR 
9280 056034 012700 002144 70$ : MOV #RP3CS,RO ;GET ADR OF ADR OF RPSCS REG 
9281 056040 104400 065444 TYPE MSG2 
9282 GET. CALCULATE, “ TYPE PHYSICAL BUS ADDRESS 
9283 056044 013001 71$: MOV (RO) +,R1 GET BUS ADR EXTENDED BITS 
9284 056046 005720 TST @R0) + ZADJUST RO 
9285 056050 013037 001732 MOV @(RO)+,@#ERRBA :GET BUS ADRESS THAT FAILED 
9286 056054 072127 177774 ASH #-4,R1 7GET BITS 485 INTO BITS 081 
9287 056060 042701 177774 BIC 4177576, R1 :GET RID OF UNUSED BITS 
9288 056064 010137 001734 MOV R1, A#ERRBA+2 =SAVE EXTENDED BITS 
9289 056070 162737 000002 001732 74$: SUB #2. AAERRBA =DECREMENT BUS ADR 
9290 056076 005637 001734 SBC QFERRBA+2 
9291 056102 004737 062324 JSR PC, @4PHYMAP 3GO CONVERT TO 22 BIT PHYSICAL 
9292 056106 012746 001524 MOV #PA1500,-(SP) 
9293 056112 004737 057544 JSR PC ,a#$D820 :CONVERT TO ASCIZ STRING 
9294 056116 062716 000003 ADD #3, (SP) GET RID OF LEADING ZEROS 
9295 056122 012667 000002 V (SP) +, 72% 
9296 056126 104400 TYPE 
9297 056130 000000 72$: . WORD 
9298 056132 104400 001337 32$: TYPE /SCRLF 
9299 056136 000167 177174 JMP é$ sEXIT 
9300 -GET UBE VIRTUAL ADDRESS 
9301 056142 012700 002272 73$: MOV #UBE TBL+2,R0 :GET ADR OF UBE TABLE +2 
9302 056146 013037 001732 MOV @(RO)+,@M#ERRBA :GET BUS ADR THAT FAILED 
9303 056152 013037 001734 MOV @(RO) +. @#ERRBA+2:GET BAE BITS 
9304 056156 042737 177774 001734 BIC #177774, aMERRBA+2;: MASK OFF ADR BITS 
9305 056164 162737 000002 001732 SUB #2, QHERRBA 
9306 056172 005637 001734 SBC QAERRBA+2 
9307 056176 000734 BR 764$ GO CONVERT & TYPE PHYSICAL ADR 
9308 Ff AAA AAAAAAAAAAEAAAAAARAAAARAERAAAAARAAAARAAKAARAAARHAHHAHHAAHHeeAee 
9309 -RPO4 ERROR 
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298: ADD MREGINX,RO 


MOV me x - FORM ADR OF RPO4 TABLE 
MOV #| >SET SOB COUNT 
31$: MOV 5(RO)s,=(SP) :GET DATA TO BE TYPED 
TYPOC TYPE DATA 
TYPE -8$ 
SOB R4,31$ ; CONTINUE 
TYPE -SCRLF 
TYPE -$CRLF 
MOV M4 RS 7SET SOB COUNT 
TYPE -MSG14 
50$: MOV @(RO)+,=(SP) :GET DTA TO BE TYPED 
TYPOC 3s TYPE IT 
TYPE ,8$ 
SOB R4,50$ ; CONT INUE 
BR 32$ 
8$: ASCIZ / / 3TwO(2) SPACES 
EVEN 


LL R ERE RER EERE EERE EERE EERE EERE EER EERE REE RENEE 
~SBTTL TYPE ROUTINE 
;*ROUTINE TO TYPE ASCIZ oR cad es MUST TERMINATE WITH A 0 BYTE. 


7*THE ROUTINE WILL INSERT R OF NULL CHARACTERS AFTER A LINE FEED 
;*NOTE?: SNULL contain THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
+ *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTES: S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
CALL 
:*1) USING A TRAP pe 
ft TYPE MESA 7:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i* TYPE 
:* ME SADR 
#2) USING A JSR pee 
: MOV (SP PUSH PROCESSOR STATUS WORD ON THE STACK 
Se JSR PC, *ST¥PE ZiCALL TYPE ROUTINE 
3* ME SADDR ZF IRST ADRESS OF MESSAGE 
$TYPE: TSTB $TPFLG 71S THERE A TERMINAL? 
BPL 1$ i: BR IF YES 
HALT 7 HALT HERE IF NO TERMINAL 
BR 3$ LEAVE 
1$: MOV RO,-(SP) 77 SAVE RO 
MOV @2(SP) RO 32GET ADDRESS OF ASCIZ STRING 
2s: MOVB (RO)+,-(SP) *=PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ ;;BR IF IT ISN'T THE TERMINATOR 
1ST (SP)+ zz 1F TERMINAIOR POP IT OFF THE STACK 
MOV (SP) +,RO 7 RESTORE RO 
3$: ADD #2, (SP) ; ADJUST RETURN PC 
RTI > :RETURN 
4$: CMPB M#HT, (SP) : :BRANCH IF <HT> 
BEQ 8$ 
CMPR MCRLF (SP) BRANCH IF NOT 
BNE S$ 


SEQ 0203 
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9366 056336 005726 TST (SP) + ;7POP <CR><LF> EQUIV 

9367 056340 104400 001337 TYPE $CRLF 

9368 056344 000757 BR 2$ ::GET NEXT CHARACTER 

9369 056346 004767 000056 5$: JSR PC, STYPEC 3GO TYPE THIS CHARACTER 

9370 056352 126726 122674 6$: CMPB $FI LC, (SP)+ [1S IT TIME FOR FILLER CHARS. ? | 
9371 056356 001352 BNE 2$ 3; 1F NO GO GET NEXT CHAR. 

3372 056360 016746 122664 MOV SNULL.~(SP) IGE # OF FILLER CHARS. "NEEDED | 
9374 056364 105366 000001 7$: DECB 1(SP) DOES A NULL NEED TO BE TYPED? 

9375 056370 902770 BLT 6$ :;BR IF NO=-GO POP THE NULL OFF OF STACK 
9376 056372 004767 000032 JSR PC, $TYPEC ::GO TYPE A NULL 

9377 056376 105367 000100 DECB $SCHARCNT 7 DON'T COUNT THE NULL AS A CHARACTER 
cere 056402 0060770 BR 7$ 7 7LOOP 

oat zs zHORIZONTAL TAB PROCESSOR 

9382 056404 112716 000040 g$: MOVB #’ (SP) 7 REPLACE TAB WITH SPACE 

9383 056410 004767 000014 9S: JSR PC,$TYPEC 7 TYPE A SPACE 

9384 056414 132767 000007 000060 BITB #7 ,SCHARCNT 3; BRANCH IF NOT AT 

$385 056422 001372 BNE 9$ 32 TAB STOP 

9386 056424 005726 TST (SP) + aA x SPACE OFF STACK 

9387 056426 000726 8R 2$ ;GET NEXT CHARACTER 

9388 056430 005737 001476 $TYPEC: TST @ANOTYPE ; INHIBIT TYPING? 

9389 056434 100423 BM! $1 YPEX : BRANCH IF YES 

9390 056436 105777 122602 TSTB asTPs ‘WAIT UNTIL PRINTER IS READY 

9391 056442 100372 BPL $TYPEC 

9392 056444 116677 000002 122574 MOVB 2(SP) ,a$TPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
9393 056452 122766 000015 000002 CMPB #CR,2(SP) : BRANCH IF 

9394 056460 001003 BNE 1$ :NOT <CR> 

9395 056462 105067 000014 CLRB $CHARCNT . 

9396 056466 000406 3R $TYPEX STEXIT 

9397 056470 122766 000012 000002 1$: CMPB LF ,2(SP) 7 BRANCH IF 

9398 056476 001402 BEQ $TYPEX <Lf> 

9399 056500 105227 INCB (PC)+ 72 INC SPACE 

9400 056502 000000 $CHARCNT:.WORD 0 7. COUNT 

vy 4 056504 000207 $TYPEX: RTS PC 

9403 DOR IIIIIIIOIIOIIUIIUIUIUIDIOIUIUIUUIUUIOIUIIIIUIUIUIIUIUUIOO Oat init 
9404 .SBTTL ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM 

9405 3* THIS ROUTINE CONVERTS THE CONTENTS OF LOCATIONS ‘LTICKS'’ 
9406 3* AND 'MTICKS*’ TO SECONDS AND MINUTES/HOURS RESPECTIVELY 

9407 i* AND TYPES THEM IN THE FOLLOWING FORMAT: 

9408 ie HHH :MM:SS 

9409 FTAA AAAARARAAAAREREERAERARARAARAARRARAAAAAAEAAARE RAKE E ES 
9410 056506 104420 TYPT IME : SAVREG 

9411 056510 004737 063752 JSR PC ,@ALDKT GO BACK TO LOW CORE 

9412 056514 113701 001631 MOVB @ALTICKS+1,R1 ZGET SECOND COUNT 

9413 056520 005000 CLR RO 

9414 056522 071027 000012 DIV #10.,R0 

9415 056526 062701 000060 ADD #60,R1 

9416 056532 110137 056744 MOVB R1,a@47T IMEBUF +10 

9417 056536 010001 MOV RO,R1 

9418 056540 005000 CLR RO 

9419 056542 071027 000006 DIV #6,RO0 


9421 056552 713 





701 000060 ADD #60,R1 
137 056743 MOVB = R21 @# TIMEBUF +7 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
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056556 013701 001626 
5000 

060012 

000060 

000141 


K 16 
MACY11 30A(7052) 04-O0CT=79 09:00 PAGE 183 
ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM 


pilates GET MINUTE COUNT 


#10. ,RO :GET HOURS AND MINUTES 
#60,R1 MAKE REMAINDER ASCII 
ME peg “PUT IN BUFFER 
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056624 
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005000 

071027 000006 
062701 000060 
110167 000120 


MACY1? 30A(1052) 


L 16 
94-0CT=79 09:00 PAGE 184 


ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM 


RO 
#6. ,R0 
#60,R1 
RO 


2$ 
RO,R1 


SEQ 0206 





M1 
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CEQKCD.P11 04-0CT=79 08:55 ROUTINE TO TYPE THE ELAPSED RUN TIME OF THE PROGRAM SEQ 0207 


9435 056626 005000 CLR RO 





















9461 056745 


9470 056746 
















057052 








DE QC =D PDP 11/70=76MP (PU ia isé® 
FQKCD, O17 04-00 7-79 08:55 


07°02” 20007? 
062: 


104400 067176 
104400 070517 
104400 070364 
000010 
00 

105761 001642 
001004 

062701 000002 


062702 064440 

011267 000002 

000000 

112767 000060 000034 


116102 001642 
012703 000010 
006 


104400 057066 
000010 


8! 
MACYT? SOA(1052) 046-00'=79 09:00 PAGE 186 


MOVB #60,4$ INIT UNIT NO. BUFFER (ASCII) 
MOVB SYSSIZE(R1),R2 :GET WORD WITH AVAILABLE UNITS 
MOV #10,R3 ;SET SOB [or 

6$: ROR R2 :GET UNIT 
BCC 5$ BRANCH IF NOT A UNIT 
TYPE -4$ 


em ee i 








ROUTINE 7O TYPE THE ELAPSED RUN TIME OF THE PROGRAM SEQ 0208 | 
DIV #70. RC 
ADD #60,R1 
1ST RO | 
BES 23 
MOV ROR? | 
LR RO 
Div #10,R0 
ADD +e R1 
MOVB = R11, TIMESUF >? 
TS? RO” 
BEQ 2$ 
MOV RO,R' 
CLR RO 
DIv #10.,R0 
ADD #60,R1 
MOVB R11, TI MERUF 
28: TYPE _ TIMEBUF 
TYPE ~SCRLF 
JSR PC, aARESKT :GO BACK TO ORIGINAL MEMORY 
RE SREG 
RTS PC : 
TIMEBUF:.BYTE 1,1,1,72.1.1.72,60,60.0 
~EVEN i 
" RERREEAEEAREARAERAEARARAAAARAARARARAARARAREARARAAAKRARAARAAARARARARERREKREKRE REE 
“SBITL ROUTINE TO TYPE THE AVAILABLE DEVICES AND UNIT NUMBERS 
* THIS ROUTINE SEARCHES THE SYSTEM SIZE TABLE FOR NON- 
* ZERO ENTRIES.WHEN IT FINDS ONE, IT TYPES THE NAME OF THE 
:* DEVICE AND THE UNIT NUMBERS THAT WERE FOUND TO BE 
= AVAILABLE FOR THAT DEVICE. 
STEERER RARE EERE ERE EEE AREER ERE REE RARER RRR EERER EERE EE 
TYPSIZ: TYPE SWITCH 
TYPE “MSG30 :NOTE SWITCH REG BIT 8 REVERSAL 
TYPE “MSG4 
MOV #10,RO :SET SOB COUNT 
CLR R1 
1$: TSTB —- SYSSIZE(R1) :DEVICE AVAILABLE? 
BNE 2$ “BRANCH IF YES 
7$: ADD #2,R1 : INCREMENT INDEX 
SOB RO,1$ > CONT INUE 
RTS PC RE TURN 
2$: MOV R1,R2 :GET INDEX 
ADD HMSGINX, R2 “GET ADR OF MESSAGE ADR 
MOV (R2),3 “GET ADDRESS OF MESSAGE 
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CEQKCD.P11 04-0CT=79 08:55 ROUTINE TO TYPE THE AVAILABLE DEVICES AND UNIT NUMBERS SEQ 0209 
057056 077307 $08 R3,6$ ; CONT INUE 
057060 104400 001337 TYPE $CRLF 

000744 BR *$ 
9495 057066 000 054 040 4$: BYTE 0,54,40,0 ;NUMBER, COMMA, SPACE, TERMINATOR 
9496 057071 000 
9497 fF ARAAARAAARAAAARARAARARARARAARRRRAARAARAARARRRARARARRAARAAHERRED 
9458 
pnd. .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
9501 s*THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DIGIT 
9502 > *OCTAL (ASCII) NUMBER AND TYPE IT 
3302 ee re HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
7*CALL: 
9505 ;* MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 
9506 :* TYPOS 77 CALL FOR TYPEOUT 
9507 :* -BYTE WN :iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
9508 i* BYTE M ::M=1 OR 0 
9509 it 371=TYPE LEADING ZEROS 
ae i* 7 0=SUPPRESS LEADING ZEROS 
‘“* 
9512 7 *$TYPON----ENTER HERE TO TYPE OUT WiTH THE SAME PARAMETERS AS THE LAST 
9513 >*$TYPOS OR $TYPOC 
9514 s*CALL: 
9515 5 MOV NUM, =-( SP) erty TO BE TYPED 
ere ‘ TYPON :CALL FOR TYPEOUT 
eds | « S$TYPOC-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
, 7*CALL: 
9520 ;* MOV NUM, -(SP) :NUMBER TO BE TYPED 
4341 :* TYPOC STCALL FOR TYPEOUT 
9523 057072 017646 000000 $TYPOS: MOV a(SP),-(SP) ;zPICKUP THE MODE 
9$24 057076 116667 000001 000211 MOVB 1(SP) ,SOF ILL ;;LOAD ZERO FILL SWITCH 
9525 057104 112667 000207 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
9526 057110 062716 000002 ADD #2, (SP) : ADJUST RETURN ADDRESS 
9527 057114 000406 BR $TYPON 
9528 057116 112767 000001 000171 $TYPOC: MOVB #1,S0F ILi 73 SET THE ZERO FILL SWITCH 
9529 057124 112767 000006 000165 MOVB #6, $SOMODE +1 :SET FOR SIX(6) DIGITS 
9530 057132 112767 000005 000154 $TYPON: MOVB #5, SOCNT >: SET THE ITERATION COUNT 
9531 057140 010346 MOV R3,-(SP) 7 SAVE R3 
9532 057142 010446 MOV R4,-(SP) TZ SAVE RS 
9533 057144 010546 MOV RS,-(SP) SAVE R5 
9534 057146 116704 000145 MOVB SOMODE +1 ,R4 : GET THE NUMBER OF DIGITS TO TYPE 
9535 057152 005404 NEG RS 
9536 057154 062704 000006 ADD #6,R4 >: SUBTRACT IT FOR MAX. ALLOWED 
9537 057160 110467 000132 MOVB R4, SOMODE 7; SAVE IT FOR USE 
9538 057164 116704 000125 MOVB SOF ILL.RS :iGET THE ZERO FILL SWITCH 
9539 057170 016605 000012 MOV 12(SP) ,R5 7 ¢PICKUP THE INPUT NUMBER 
9540 057174 005003 CLR R3 ;CLEAR THE OUTPUT WORD 
9541 057176 006105 1$: ROL R5 :SROTATE MSB INTO ‘'C’' 
9542 057200 000404 BR 3$ :GO0 DO MSB 
9543 057202 006105 2$: * ROL R5 :FORM THIS DIGIT 
9544 057204 006105 ROL R5_ 
9545 057206 00610 ROL R5 
9546 057210 010503 MOV RS,R3 


9547 057212 006103 3$: ROL R3 7-GET LSB OF THIS DIGIT 





DEQKC=D PDP 11/70-74MP CPU EXERCISER 
CEQKCD.P11 


9548 
954 


057214 


057315 
057316 


057320 


05 
057370 


04-0( 1-79 


195367 
6 


08:55 
000076 
177770 


000002 000004 


020200 
000020 
000055 


057534 
000040 


057524 


000001 


MACY11 30A(1052) 
BINARY TO OCTAL (ASCII) AND TYPE 


4$: 
5$: 


73: 


6$: 


8$: 


SOCNT: 
SOF ILL: 
pate 


“BYTE 
"BYTE 
WORD 


D1 
04-OCT-79 09:00 PAGE 188 


SOMODE 
7$ 


2 (SP) ,4(SP) 
(SP) +, (SP) 


Q002D20 


oc 


+i TYPE THIS DIG!IT? 

cee IF NO 

;;GET a OF JUNK 
oe ST FOR 0 
73; SUPPRESS THIS 0? 
33 IF YES 
7 DON'T SUPPRESS ANYMORE 0°S 
s MAKE THiS DIGIT ASCII 
s MAKE ASCII IF NOT ALREADY 
; SAVE FOR TYPING 
he TYPE THIS DIGIT 

; COUNT BY 1 

*:BR IF MORE TO DO 

IF DONE 


;BR 
* INSURE LAST DIGIT ISN'T A BLANK 
3:G0O DO THE LAST CIGIT 
+ REST ORE RS 
ZZRESTORE R4 
: RESTORE R3 
77 SET THE STACK FOR RETURNING 


; RETURN 

; STORAGE FOR ASCII DIGIT 

: + TERMINATOR FOR TYPE ROUTINE 
sOCTAL DIGIT COUNTER 

73 ZERO FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 


HEINOUS IEIISIIO ICSI ISISIIOIIUIIO OOOO OIOIINOOOOR Enoittiti rrr 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
3 *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


Z*CALL: 
** 


a= 
. 


$TYPDS: 


18: 


2$: 


NUM, ~ (SP) 


RO,-(SP) 


R5.-(SP) 
#20200,-(SP) 


20(SP) ,R5 
1$ 


R5 
M'=,1(SP) 
RO 


#$0BLK R3 
(R83) + 


R2 
$DTBL (RO) ,R1 


32PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


7zPUSH RO ON STACK 
77PUSH R1 ON STACK 
;7PUSH R2 ON STACK 
PUSH R3 ON STACK 
;7PUSH RS ON STACK 
7:SET BLANK SWITCH a SIGN 


es POS. 
7 MAKE THE BINARY NUMBER POS. 
7 7MAKE THE ASCII NUMBER NEG. 
::ZERO THE CONSTANTS INDEX 
;; SETUP THE OUTPUT POINTER 
ie ; SET THE FIRST CHARACTER TO A BLANK 
3:CLEAR THE BCD NUMBER 
‘GET THE CONSTANT 


SEQ 0210 
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CEQKCD.P11 04-0CT=79 08:55 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0211 
96046 057374 160105 %$: SUB R1,R5 7FORM THIS BCD DIGIT 
9605 057376 002402 BLT 4$ ;BR IF DONE 
9606 057400 005202 INC R2 ; INCREASE THE BCD DIGIT BY 7 
9607 057402 000774 BR 3$ 
9608 057404 060105 4$: ADD R1,R5 ;ADD BACK THE CONSTANT 
9609 057406 005702 TST R2 ;CHECK IF BCD DIGIT=0 
9610 057410 001002 BNE 5$ ;FALL THROUGH IF 0 
9611 057412 105716 TSTB (SP) ;STILL DOING LEADING 0'S? 
9612 057414 100407 3M] 7$ BR IF YES 
9613 057416 106316 S$: ASLB (SP) > MSD? 
9614 057420 103003 BCC 6$ ioe IF 
9615 057422 116663 000001 177777 MOVB 1(SP) ,=1(R3) VES=-SET THE SIGN 
9616 057430 052702 000060 6$: BIS #°0,R2 MAKE THE BCD DIGIT ASCII 
9617 057434 052702 000040 7$: BIS #" ,R2 «MAKE IT A SPACE IF NOT ALREADY A DIGIT 
9618 057440 110223 MOVB R2, (R3)+ ;zPUT THIS CHARACTER IN THE OUTPUT BUFFER 
9619 057442 005720 TST (RO) + 37; JUST INCREMENT ING 
9620 057444 020027 000010 CMP RO,410 >: CHECK THE TABLE INDEX 
9621 957450 002746 BLT 2$ 3:GO DO THE NEXT DIGIT 
9622 057452 003002 BGT &$ be TO EXIT 
9623 057454 010502 MOV R5,R2 :GET THE LSD 
9624 057456 000764 BR 6$ ;GO CHANGE TO ASCII 
9625 057460 105726 8$: TSTB (SP) + “WAS THE LSD THE FIRST NON-ZERO? 
9626 057462 100003 BPL o$ ‘TBR IF NO 
9627 057464 116663 177777 177776 MOVB -1(SP) ,-2(R3) ZYES=--SET THE SIGN FOR TYPING 
9628 057472 105013 9$: CLRB (R3) ;SET THE TERMINATOR 
9629 057474 012605 MOV (SP)+,R5 «POP STACK INTO R5 
9630 057476 012603 MOV (SP)+,R3 ;:POP STACK INTO R3 
9631 057500 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
9632 057502 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
9633 057504 012600 MOV (SP) +,RO ;zPOP STACK INTO RO 
9634 057506 104400 0575346 TYPE , SDBLK 7 NOW TYPE THE NUMBER 
9635 057512 016666 000002 000004 MOV 3(SP),4(SP) : ADJUST THE STACK 
9636 057520 012616 MOV (SP)+, (SP) 
9637 057522 000002 RTI RETURN TO USER 
9638 057524 023420 $DTBL: 10000. 
9639 057526 001750 1000. 
9640 057530 0001 0 
9641 057532 000012 10. 
9642 057534 000004 S$DBLK: .BLKW 4 
9643 LL AARNE E RARER EERE RRA AREER ARR ARERAERARAAKE ERE 
9644 
a .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
9647 >*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
9648 :*UNSIGNED OCTAL ASCiZ NUMBER. 
9649 7*CALL 
9650 :* MOV #PNTR,-(SP) POINTER TO LOW WORD OF BINARY NUMBFS 
9651 ;* JSR PC ,a#$DB20 77 CALL THE ROUTINE 
434 7” RETURN >: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
9654 
9655 057544 104420 $DR20: SAVREG 77 SAVE ALL REGISTERS 
9656 057546 016601 000002 MOV 2(SP 77PICKUP THE POINTER TO LOW WORD 
9657 057552 012705 057701 MOV Seer oie. »R5 ;:;POINTER TO DATA TABLE 


9658 057556 012704 000014 MOV #12. ,R4 7:D0 ELEVEN CHARACTERS 
9659 057562 012703 177770 MOV #*C7,R3 ; =MASK 
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DE 
CEQKCD.P11 04-0CT=79 08:55 DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE SEQ 0212 
9660 057566 012100 MOV (R1)+,RO ory WORD 
9661 057570 012101 MOV (R1)+,R1 . ; sHIGH WORD 
9662 057572 005002 CLR R2 ; TERMINATOR 
9663 057574 110245 1$: MOVB R2,-(R5) :EPUT CHARACTER IN DATA TABLE 
9664 057576 010002 MOV RO,R2 ;GET THIS DIGIT 
9665 057600 005304 DEC RG : COUNT THIS CHARACTER 
9666 057602 003016 BGT 3$ “BR F NOT THE LAST DIGIT 
9667 057604 001414 BEQ 2s ;7BR IF IT IS THE LAST DIGIT 
9668 057606 005205 INC R5 ALL DIGITS DONE=ADJUST POINTER FOR FIRST 
9669 057610 010566 000002 MOV R5,2(SP) ASCIZ CHAR. & PUT IT ON THE STACK 
9670 057614 122765 000061 000003 CMPB #61,3(R5) “LAST NUBER LEGAL? 
9671 057622 002003 BGE 4$ “BRANCH IF YES 
9672 057624 112765 000060 000003 MOVB #60, 3(R5) 7 MAKE IT ZERO 
9673 057632 104422 4$: RESREG ZRESTORE ALL REGISTERS 
9674 057634 000207 RTS PC + RETURN TO USER 
9675 057636 006203 2$: ASR R3 s position THE MASK FOR THE ge DIGIT 
9676 057640 006001 3$: ROR R1 ;POSITION THE BINARY NUMBER 
9677 057642 006000 ROR RO : THE NEXT OCTAL DIGIT 
9678 057644 006001 ROR R1 
9679 057646 0060 ROR RO 
057650 006001 : ROR R1 
9681 057652 006000 ROR RO 
9682 057654 040302 BIC R3,R2 >;MASK OUT ALL JUNK 
9683 057656 062702 000060 ADD #°O,R2 7zMAKE THIS CHAR. ASCII 
9684 057662 000744 BR 1$ ::GO PUT IT IN THE DATA TABLE 
9685 057664 000016 SOCTVL: .BLKB 14. ; RESERVE DATA TABLE 
9686 DOORS IIDIUIUIIDIOIDIIIUIDIIUIOIOINIUIDISIIOIOIIDISIOIOIIUIDIOIOIOIUIINIDE IOI Ot 
9687 
oee5 -SBTTL SAVE AND RESTORE RO=-RS ROUTINES 
9690 7 *SAVE RO-R5 
9691 s*CALL: 
9692 ;* SAVREG 
aoar ;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
9695 + *TOP=--(+16) 
9696 te +2---(+18) 
9697 pe +4---R5 
9698 pe +6---R4 
9699 p* +8---R3 
9700 3*+10---R2 
9701 3*+12---R1 
9702 7*+14---R0 
9703 
9704 057702 $SAVREG: 
9705 057702 010046 MOV RO,-(SP) 77PUSH RO ON STACK 
9706 057704 010146 MOV R1.-(SP) PUSH R1 ON STACK 
9707 057706 010246 MOV R2,-(SP) PUSH R2 ON STACK 
9708 057710 010346 MOV R3,-<(SP) 7 ;PUSH R3 ON STACK 
9709 057712 010446 MOV R4,-(SP) ;PUSH R4 ON STACK 
9710 057714 010546 MOV R5,-(SP) > PUSH RS ON STACK 
9711 057716 916646 000022 MOV 22(SP), (SP) 7, SAVE PS OF MAIN FLOW 
9712 057722 016646 000022 MOV 22(SP),-(SP) >; SAVE PC OF MAIN FLOW 
9713 057726 016646 000022 MOV 22(SP) .=(SP) 77 SAVE PS OF CALL 


9714 057732 016646 000022 MOV 22 (SP) ,=(SP) ;:SAVE PC OF CALL 
9715 057736 000002 RTI 








DEQKC=D PDP 
CEQKCD P11 


057740 


057774 


057776 
060000 


11/70=74MP_ CPU > appt 


04-0CT=79 08:5 


104420 


042703 


000000 
000002 
000002 
001367 
000000 
000005 
177770 
000060 
177775 


177776 
000060 


000002 
177770 
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SAVE AND RESTORE RO-R5S ROUTINES 


:*RESTORE RO=R5 


s*CALL: 

"ths RESREG 

$RESREG: 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP) +,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP) +,RO 
RT! . 


2 ¢RESTORE PC OF CALL 

oe TORE PS OF CALL 
2sRESTORE PC OF MAIN FLOW 
2 ¢RESTORE PS OF MAIN FLOW 

;POP STACK INTO R5 

3:POP STACK INTO RG 

3¢POP STACK INTO R3 

33POP STACK INTO R2 

3:POP STACK INTO R1 

;;POP STACK INTO RO 


5 LARA RAAAARAAEARERAEAEERENARARRAERRARRERAERAEAAEEE EERE R EEE ee 


"SBTTL CONVERT FLOATING BINARY 


TO OCTAL ASCIZ 


:*THIS ROUTINE CONVERTS A 32 RIT FLOATING NUMBER TO AN OCTAL 
:*ASCIZ STRING IN THE FOLLOWING FORMAT: 


-* 


WHERE SIGN BIT 


W 
x 
Y 
Z 


a ee ee 
sneeeee me 


W XXX YYY ZZZ2Z2Z 


8-BIT EXPONENT (RIGHT JUSTIFIED) 
FRACTION BITS <57:51> (RIGHT JUSTIFIED) 
FRACTION BITS <50:35> 


:*IT IS ENTERED BY A TRAP CALL WITH = ADDRESS OF THE FLOATING 
;*NUMBER IN THE WORD FOLLOWING THE CAL 
;*1T RETURNS WITH THE ADDRESS OF THE ASCIZ STRING ON THE STACK. 


+; 20.0. 0.0.0.0.0.8.0,.5.0.0.0.0,.0.0.0.0.0.0.8. 0.0. 0.0.0. 0.0.0.0 0. 00.8.0 0 0008 e eee e ee eee ee ieee 


$F (20: _" 


(RO) ,RO 
MOV ASF BUFF +23,R4 
MOVB = 


MOV #5, 
i$ MOV R1,R 
BIC #*C7,R3 


3$: MOV R1,R3 


;GET ADDRESS OF DATA 


;ADJUST RETURN PC 


ty SECOND DATA WCRD IN R1 

PUT FIRST DATA WORD IN RO 
‘GET ADDRESS OF BUFFER END IN R4 
;PUT TERMINATOR IN BUFFER 


:SET SOB COUNT FOR FRACTION DIGITS 
GET LSB'S OF FRACTION 

SAVE LS 3 BITS 

MAKE THEM ASCII 


STORE IN BUFFER 

Sool NUMBER TO rik 3 BITS 
ONTINUE FOR 7 DIGIT 

‘GET NEXT DIGITS 

ONLY WANT 1 BIT 


SMAKE THEM ASCII 


ORE IN 


zt BUFFER 
;PUT SPACE IN BUFFER 


SET SOB COUNT 
:GET LOW WORD. 
sMASK 3 BITS ~ 


a = 


nc 


oeteeiisheaieeniaaeantlinaciaian 
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CEQKCD.P11 04-0CT=79 08:55 CONVERT FLOATING BINARY TO OCTAL ASCIZ SEQ 0214 
9772 060112 062703 000060 ADD #60,R3 :MAKE THEM ASCII 
9773 060116 110344 MOVB = R'3,,- (RG) *PUT IN BUFFER 
9774 060120 073027 177775 ASHC = #= 3, RO [GET NEXT 3 BITS 
9775 060124 077511 SOB RS, 3$ SCONVERT THEM 
9776 060126 010103 MOV R1-R3 : 
9777 060130 042703 177776 BIC #°01,R3 SONLY WANT 1 BIT 
9778 060134 062703 000060 ADD #60,R3 “MAKE IT ASCII 
9779 060140 110344 MOVB —R'3,= (RG) “PUT IN SUFFER 
9780 060142 112744 000040 MOVB #40,=(R4) “PUT SPACE IN BUFFER 
9781 060146 112744 000040 MOV8 #40. =(R4) 
9782 060152 072127 177777 ASH #-1,R1 :GET FIRST 3 BITS OF EXPONENT 
9783 060156 012705 000002 MOV #2,R5 >SET SOB COUNT FOR 2 DIGITS 
9784 060162 010103 2$: MOV R1.R3 “GET LSB'S OF EXPONENT 
9785 060164 042703 177770 BIC #°07,R3 :SAVE 3 BITS 
9786 060170 062703 000060 ADD #60,R3 [MAKE THEM ASCII 
9787 060174 110344 MOVB ~—R’3,, = (RG) :STORE IN BUFFER 
9788 060176 072127 177775 ASH #-3,R1 *GET NEXT 3 BITS 
9789 060202 077511 SOB R5,2$ * CONT INUE 
9790 060204 010103 MOV R1,R3 :GET LAST 2 BITS OF EXPONENT 
9791 060206 042703 177774 BIC #°(3,R3 [MAKE SURE ONLY 2 BITS 
9792 060212 062703 000060 ADD #60,R3 ‘MAKE THEM ASCII 
9793 060216 110344 MOVB ~—s R3,,=(R4) [STORE IN BUFFER 
9794 060220 112744 000040 MOVB = #40,=(R4) ‘PUT SPACE IN BUFFER 
9795 060224 112744 000040 MOVB #40.-(R4) 
9796 060230 042700 177776 BIC #*C7,RO :GET SIGN BIT (IT WAS EXTENDED) 
9797 060234 062700 000060 ADD #60,RO “MAKE IT ASCII 
9798 060240 110044 MOVB _—RO, ~(R4) “PUT IT IN THE BUFFER 
9799 060242 104422 RESREG 
9800 060244 011646 MOV (SP) ,=(SP) :SAVE RETURN PC 
9801 060246 016666 000004 000002 MOV 4(SP).2(SP) ZAND RETURN PSW 
9802 060254 012766 001344 000004 MOV ASFLBUFF,4(SP) =PUT BUFFER ADDRESS ON STACK 
9803 060262 000006 RTT RETURN 
9804 .EVEN 
9805 CLEARER RRR ERE REE REE REAR AEERERERR EERE AAEE KARE ERERAER EEE ERE 
9806 “SBTTL CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 
9808 ; :*THIS ROUTINE CONVERTS A 64 BIT FLOATING NUMBER TO AN OCTAL 
9809 **ASCIZ STRING IN THE FOLLOWING FORMAT: 
"* 
pa ak he U VVV Ww) XXXXXX YYYYYY 222727 
c ;* 
9813 : WHERE U = SIGN BIT 
9814 * V = 8-BIT EXPONENT (RIGHT JUSTIFIED) 
9815 * W = FRACTION BITS<57:51> (RIGHT JUSTIFIED) 
9816 . X = FRACTION BITS <50:35> 
9817 * Y = FRACTION BITS <34:19> 
OB 19 is 2 = FRACTION BITS <18:03> 
9820 :*]T IS ENTERED BY A TRAP CALL WITH THE ADDRESS OF THE FLOATING 
9821 > *NUMBER IN THE WORD FOLLOWING THE CAL 
9822 :*]T RETURNS WITH THE ADDRESS OF THE ASCIZ STRING ON THE STACK. 
9823 RRR REECE KEERAERAEAEAEAARAAEAKAKEAAKRERAERAAEEKRAEARAREARA RHR EEEE EEE 
9824 060264 104420 $FLD20: SAVREG 
9825 060266 017667 000000 000006 MOV a(SP),1$ :GET ADDRESS OF DATA TO CONVERT 
9826 060274 062716 000002 ADD #2, (SP) ‘ADJUST RETURN PC 


9827 060300 104424 FL20 7CONVERT MS 32 BITS 








DEQKC=D PDP dy de CPU EXERCISER 
CEQKCD.P11 


60302 
04 


04-OCT-79 


010046 


08:55 


121076 
000041 


177756 
000004 
000002 
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177770 
000060 


177775 


177776 
000060 


000040 
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CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 


1$: . WORD 
MGV 


CLRB =(RO) 
MOV 1$,R1 
ADD #4 ,R1 
MOV (R1)+,R2 
MOV (R1)+,R3 
MOV #2,R1 
3$: MOV #5 ,R4 
4$: MOV R3,R 
BIC #*C7,R5 


ADD #60,R5 
MOVB R5,-(RO) 
ASHC #-3,R 
SOB R4,4$ 
MOV R3,R5 


R1,3$ 
RESREG 
MOV (SP) .=(SP) 
MOV 4(SP) ,2(SP) 
MOV SBUFF 4 (SP) 
RTT 


ie th OF CONVERTED DATA 


SADJUST TO END OF BUFFER 
[PUT TERMINATOR IN BUFFER 


[GET ADDRESS OF DATA TO CONVERT 
ADJUST TO LOWER 32 BITS 
SAVE THE DATA 


;SET LOOP COUNT 


SET LGOP COUNT 
:GET LS 32 = ii OF DATA 


;GET NEXT 3 BITS 
; CONT INUE 

:GET LS 32 BITS 
ZONLY WANT 1 BIT 
sMAKE IT ASCII 


‘PUT IN TABLE 
‘PUT SPACE IN TABLE 


; CONVERT NEXT 16 BITS 


sADJUST STACK 

;TO RETURN WITH ADDRESS 
OF BUFFER ON STACK 
RETURN 


CLEARER AERA AERA RE KERR ARE K EERE EERE AERA 


-SBTTL RANDOM NUMBER GENERATOR ROUTINE 
:*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


s*WITH A RANGE OF 0 TO 2(+33)-i. 


Z*CALL: 

i* JSR PC, $RAND 

i* RETURN 

° 

te 

$RAND: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV Re ,-(SP) 
MOV $1 ONUM,RO 
MOV $HINUM,R1 
MOV M-7 ,R2 

1$ ASL RO 
ROL R1 
INC R2 
BNE oe 
ADD $LONUM ,RO 
ADC R1 


ADD $HINUM,R1 


77CALL THE ROUTINE 
Z7RETURN HERE THE RANDOM 
7 NUMBER WILL BE IN 

32 $HINUM,$LONUM 


BeBe Se Be Be Be Be Be Se Be Be Be 


;PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

SET RO WITH LOW 

;SET R1 WITH HIGH 

;SET SHIFT COUNT 

SHIFT RO LEFT AND 
ROTATE CARRY INTO R1 AND 
CHECK FOR DONE 

CONTINUE SHIFT LOOP 

;ADD NUMBER TO MAKE X 129 
;PROPOGATE CARRY 


;7ADD NUMBER TO MAKE X 129 


SEQ 0215 


oc 
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120722 
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000012 
000001 


000130 
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ADD #1057,R0 37ADD LOW CONSTANT 
ADC R1 ;;PROPUGATE CARRY 
ADD #47401,R1 3;ADD HIGH CONSTANT 


SEQ 0216 


MOV RO,$LONUM 33SAVE RO 
MOV R1,$HINUM HF VE R1 
MOV (SP)+,R2 POP STACK INTO 82 
MOV (SP)+,R1 ;POP STACK INTO R1 
MOV (SP)+,RO * SPOP STACK INTO RO 
RTS PC ; ;RETURN 


Wee ee eee RRR RRRERRRRERRRARAASERASRRR AAAS AAAS ARRAS R REESE RRR RRS RSS SO DS 

- SBITL FLOATING POINT NUMBER GENERATOR 

THIS ROUTINE GENERATES TWO RANDOM FLOATING POINT NUMBERS 

IN EITHER SINGLE OR DOUBLE wae ie FOR SINGLE PRECISION 
THE NUMBERS ARE STORED IN $TMPO AND DOUBLE PRECISION 
NUMBERS ARE STORED IN $TMPO AND $TMP 

IN EITHER SINGLE OR DOUBLE THE EXTENDED EXPONENT IS STORED 
IN $REGO AND $REG1. 


FLARE REE ERE REREAD 


fee bo we 


FLTDBL: MOV #2, SOBDBL ;SET LOOP FOR 2, FOUR WORD NUMBERS 
FLTSGL: MOV SOBDBL .R ;SET WORD LENGTH LOOP 
MOV ASTMPO ,R2 ;GET ADDRESS TO STORE WORDS IN 
ef: MOV #2,R1 ;SET NUMBER OF WORDS TO 2 
1$: JSR PC, SRAND ;GET RANDOM NUMBER 
CMP #2,R1 sFIRST TIME? 
BEQ 3$ ;BRANCH IF YES 
CMP #2, SOBDBL ;DOUBLE PRECISION? 
BEQ 4$ “BRANCH IF YES 
3$: MOV $HINUM,R3 :GET EXPONENT PART 
BIC #177 ,R3 ; CHECK FOR MINUS ZERO 
CMP #B1T15,R3 
BEQ 1$ ;BRANCH IF MINUS ZERO 
4$: MOV $HINUM, (R2) + SAVE HINUM 
MOV $LONUM, (R2)+ 3 SAVE LONUM 
SOB R1,1$ ; CONT INUE 
SOB RO,2$ [CONTINUE FOR DOUBLE PREC 
MOV #STMPO,-(SP) [PUT ADDRESS OF NUMBER ON STACK 
MOV #1002,-(SP) PUT CONTROL WORD ON STACK 
CMP #2, SOBDBL ; DOUBLE apt 
BNE 5$ [BRANCH IF NO 
MOV #1004, (SP) ; CHANGE CONTROL WORD 
5$: JSR PC ,EXPEXT ; CALCULATE EXT EXPONENTS 
MOV #1, SOBDBL ZINIT SOBDBL FOR SINGLE PREC 
RTS PC RETURN 
SOBDBL: .WORD 1 


DDR REE REE EEREEE ERE EEE EEE ERE ERE RE ER 


" SBTTL 


“* 
’ 


’ 


De Be Ve Ge Bo Be Be Ve Ve 
see ehmhehUcrhlUrhUrhUmh 


THE ACCUMULATOR NUMBER. 


FLOATING POINT EXPONENT EXTENSION 

THIS ROUTINE CONVERTS THE ACTUAL EXPONENT OF A FLOATING POINT 
NUMBER INTO AN ACTUAL EXPONENT OF 200 AND AN EXTENDED 

EXPONENT EQUAL TO THE DIFFERANCE BETWEEN THE ORIGINAL 

ACTUAL EXPONENT AND 200. 


THE ROUTINE IS ENTERED WITH A CONTROL WORD ON THE STACK. 
BIT 15 OF THE CONTROL WORD INDICATES WHETHER THE NUMBER 
1S IN MEMORY (<15>=0) OR IN AN ACCUMULATOR (<15>=1). 

IF THE NUMBER IS IN AN ACCUMULATOR, BITS <9:8> INDICATE 
IF THE NUMBER(S) IS IN MEMORY, 


oc 
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9940 . BITS <9:8> INDICATE THE NUMBER OF NUMBERS TO CONVERT AND 
9941 * BITS <2:0> INDICATE JHE WORD LENGTH OF THE NUMBER(S). 
9942 : IN THE CASE OF A MEMORY CONVERSION, THE ADDRESS OF THE 
9943 * FIRST WORD TO CONVERT IS ALSO ON THE STACK (PRECEDING 
9944 te THE CONTROL WORD) 
9945 PETTITT tite c titi te tte ti tit ttit iii i tii iititt iii it ttt t titi i tit) 
9946 060674 012605 EXPEXT: MOV (SP) +,R5 ;SAVE RETURN PC 
9947 060676 012600 MOV (SP) +,RO :GET CONTROL WORD 
9948 060700 100437 BMI 1$ ‘BRANCH IF ACC CONVERSION 
9949 060702 012601 MOV (SP)+,R1 =GET START ADDRESS 
9950 060704 162700 000400 SUB 4400,R0 
9951 060710 012702 001302 MOV ASTMPO,R2 :GET OFFSET FROM $TMPC 
9952 060714 160102 SUB R1,R2 
9953 060716 00 NEG R2 
9954 060720 006202 ASR R2 
9955 060722 062702 001256 ADD #$REGO,R2 GEN ADDRESS OF EXT WORD 
9956 060726 011103 3$: MOV (R1) ,R3 ‘GET DAT 
9957 060730 042703 100177 BIC #100177,R3 :GET EXPONEN 
9958 060734 072327 177771 ASH #-7,R3 :RIGHT PUSTIFY EXPONENT 
9959 060740 162703 000200 SUB #200.R3 CONVERT TO 2'S COMPLIMENT 
9960 060744 010312 MOV R3, (R2) ‘ADD TO EXTENDED EXPONENT 
9961 060746 042711 077600 BIC #77600, (R1) [MAKE ACTUA 
9962 060752 052711 040000 BIS #B1T14,(R1) : EXPONENT 300 
9963 060756 162700 000400 SUB #400,R0 Y MORE WORDS S$? 
9964 060762 100435 BM! 2$ ‘BRANCH IF 
9965 060764 110003 MOVB ~— RO, R3 :GET WORD LENGTH 
9966 060765 006303 ASL R3 
9967 060770 060301 ADD R3,R1 :SELECT NEXT NUMBER ADDRESS 
9968 060772 062702 000002 ADD #2,R2 =SELECT NEXT EXTENDED ADDRESS 
9969 060776 000753 BR 3$ > CONT INUE 
9970 : ACCUMULATOR CONVERS ION 
9971 061000 072027 177776 i$: ASH -2,R0 :GET ACCUMULATOR NUMBER 
9972 061004 042700 177477 BIC 4199077, RO : 
9973 061010 010002 MOV RO,R2 7 GENERATE 
9974 061012 072227 177773 ASH #-5 .R2 SADDRESS OF 
9975 061016 062702 001412 ADD #$ACO,R2 ZEXTENDED EXPONENT 
9976 061022 042767 000300 000004 BIC #300,5$ SGENERATE INSTRUCTION 
9977 061030 050067 000000 BIS RO, 5$ [TO GET EXP ONENT 
9978 061034 175003 5$: STEXP ACO,R3 :GET EXPONENT 
9979 061036 060312 ADD R3, (R2) :ADD TO EXTENDED EXPONENT 
9980 061040 005003 CLR R 
9981 061042 042767 000300 000004 BIC #300,4$ :GENERATE INSTRUCTION 
9982 061050 050067 000000 BIS RO.4$ TO LOAD EXPONENT BACK TO ACC 
9983 061054 176403 4$: LDEXP  R3.ACO “LOAD EXPONENT OF 200 
9984 061056 010546 2$: MOV R5,-(SP) ‘RESTORE RETURN PC 
9985 061060 000207 RTS pC * RETURN 
9986 SURE RE RE REEREA EK EKEAEE ERK ER REE REEEE RARER AER ERR REEE REE EE 
9987 
9988 .SBTTL POWER DOWN AND UP ROUTINES 
sPOWER DOWN ROUTINE 
9991 061062 012737 061210 000024 $PWRDN: MOV MSILLUP, QAPWRVEC ; SET FOR FAST UP 
9992 061070 012737 00034C 000026 MOV #340, @#PWRVEC+2 ::PRIO:7 
9993 061076 010046 MOV RO,-(SP) pun RO ON STACK 
9994 061100 010146 MOV R1.-(SP) PUSH R1 ON STACK 
9995 061102 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 





Oo 
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R3,-(SP) S3 R3 ON STACK 
R4,-(SP) es R4 ON STACK 
R5,-(5P) > PU RS ON STACK 
000076 SP, $SAVR6 ;;SAVE SP 
061130 000024 MO ASPWRUP , AAPWRVEC +;SET UP VECTOR 


72 7 HANG UP 


;POWER UP ROUTINE 
$PWRUP: MOV SSAVR6, SP SsGtT 
C $SAVR6 ;sWAIT LOOP FOR THE TTY 
1$: SSAVR6 2 sWAIT FOR THE INC 
1$ WORD 
(SP)+,R5 [:POP STACK INTO RS 
(SP)+,R4 3zPOP STACK INTO R4 
(SP) +,R3 33POP STACK INTO R3 
(SP)+,R2 3=POP STACK INTO R2 
(SP)+,R1 : sPOP STACK INTO R1 
(SP)+,RO POP STACK INTO RO 
061062 000024 #SPWRDN, AAPWRVEC” 23 SET UP THE POWER DOWN VECTOR 
000340 000026 #340, Q4PWRVEC+2 ;:PRIO:7 
;REPORT THE POWER FAILURE 
SPWRMG: . $POWER 7;POQWER FAIL MESSAGE POINTER 
(PC) +, (SP) 7ZRESTART AT START 
$PWRAD: . START 7 zRESTART ADDRESS 


te ed a dd 


ENSERSKS 


lh ae tt ae a cai cae il el onl 
888888888 
pa ne ee 
CONAUSW oO 


— >) 
88 
No— 
oo 


$ILLUP: 3: THE POWER UP SEQUENCE WAS STARTED 
BR ° ;; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVRE: 0 ;;PUT THE SP HERE 


047520 042527 $POWER: .ASCIZ <15><12>'POWER"’ 
-EVEN 


CC EAA RRRARARERERE RAE AARARERRARARAERERERRAEKAERRAARAREREREE EEE © 
-SBTTL TTY INPUT ROUTINE 
7*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7 * CALL 
es RDCHR ; INPUT A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE ; CHARACTER JS ON THE STACK 

7% : WITH PARITY BIT STRIPPED OFF 


011646 $RDCHR: (SP) ,-(SP) :PUSH DOWN THE PC 
016666 000004 000002 MO 4(SP),2(SP) :iSAVE THE PS 
117776 1$: a$TkS ::WAIT FOR 
1$ A CHARACTER 
117772 000004 a$TKB,4(SP) TREAD THE TTY 
177600 000004 #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
=:GO BACK TO USER 
SLEEK REE EREEEAERERKKEEKEAREER ER RE ERE E RR ER 
: THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
** 2 
:* RDLIN : INPUT A STRING FROM THE TTY 
:* RETURN HERE - TADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
:* : : TERMINATOR WILL BE A BYTE OF ALL O'S 
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TTY INPUT ROUT]! 

$RDLIN: MOV R3,-(SP) ZZ SAVE R3 

1$: MOV #$TTYIN,R3 :;GET ADDRESS 

2$: CMP #$TTYINe8. ,R3 4 ht FULL? 
BLOS 4$ ;BR IF YES 
RDCHR GO READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) GET CHARACTER 

10$: CMPB #177,(R3) 7271S IT A RUBOUT 
BNE 3$ ; SKIP IF NOT 

4$: TYPE ,SQUES 220re aT 
BR 1$ >: CLEAR THE BUFFER AND LOOP 

3$: Pe (R3) ,9$ 7 ECHO THE CHARACTER 
CMPB #15, (R3)+ CHECK FOR RETURN 
BNE 2$ ;;LOOP IF NOT RETURN 
CLRB -1(R3) ae RETURN (THE 15) 
TYPE ,SLF TYPE A LINE FEED 
MOV (SP)+,R3 + SREST ORE R3 
MOV (SP) ,-(SP) 2 ¢ADJUST THE STACK AND PUT ADDRESS OF [HE 
MOV 4(SP) ,2(SP) Es FIRST ASCII CHARACTER ON IT 
MOV ASTTYIN,4(SP) 
RT] 7 RETURN 

9$ -BYTE 0 3zSTORAGE FOR ASCII CHAR. TO TYPE 
-BYTE 0 72 TERMINATOR 


7 zRESERVE 8 BYTES FOR TTY INPUT 


ZDIDIO OR OIOISISIDISIOIDIOIIOISIOIIOIDISIOIDICIOI ICICI IOI III TOI TOT TTT TOTO TT TTT TOT TTT TT TAA IR 
-SBTTL READ A DECIMAL NUMBER FROM THE TTY 


:*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
;*ARE READ A _‘'?"* FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
[*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
;*POSITIVE 32767 TO NEGATIVE 32768. 


7*CALL 
3* RDDEC ;7READ A DECIMAL NUMBER 
:* RETURN HERE > NUMBER IS ON TOP OF THE STACK 
$RDDEC: MOV (SP) ,-(SP) ;PROVIDE SPACE FOR 
MOV 4(SP),2(SP) «THE INPUT NUMBER 
MOV RO,-(SP) 3; PUSH RO ON STACK 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
MOV R2. ~-(SP) 3;PUSH R2 ON STACK 
1$ RDLIN 7ZREAD AN ASCIZ LINE 
MOV (SP) +,RO + sADDRESS OF 1ST CHAR. 
MOV RO,6$ ;SAVE INCASE OF BAD INPUT 
CLR -(SP) :3 CLEAR DATA WORD 
CLR R2 :SIGN SET POSITIVE 
CMPB #'=, (RO) 77 SEE IF A MINUS SIGN WAS TYPED 
BNE 2$ ;BR IF NO MINUS SIGN 
MOVB (RO)+,R2 17 SAVE FOR LATER USE 
2$: MOVB (RO)+,R1 


PICKUP _THIS CHARACTER 
BEQ 3$ ::GET OUT IF ZERO 
CMPB #°0,R1 72MAKE SURE THIS CHARACTER 


SEQ 0219 


ag 
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CEQKCD.P11 04-0CT-79 READ A DECIMAL NUMBER FROM THE TTY SEQ 0220 
10108 061452 003032 BGT 5$ zz1S A DIGIT BETWEEN 0 & 9 

10109 061454 122701 000071 CMPB #°9,R1 

10110 061460 00242 BLT 5$ 

10111 061462 032716 170000 BIT #*(7777, (SP) ;:DON'T LET NUMBER GET TO BIG 
10112 061466 001024 BNE S$ 7;BR IF NUMBER WOULD OVERFLUW 
10113 061470 006316 ASL (SP) rue 

10114 061472 011646 MOV (SP) ,-(SP) 7; SAVE FOR LATER 

10115 061474 006316 ASL (SP) rr%4 

10116 061476 006316 ASL (SP) 37*8. 

10117 061500 062616 ADD (SP) +, (SP) 22*10. 

10118 061502 102416 BVS 5$ OVERFLOW ISN'T ALLOWED 

10119 1504 162701 000060 SUB #'0,R1 :zSTRIP AWAY THE ASCII JUNK 

10120 061510 06011 ADD R1, (SP) fees IN THIS DIGIT 

10121 061512 102412 BVS ; OVERFLOW ISN'T ALLOWED 

10122 061514 000752 BR 2$ > LOOP 

10123 061516 005702 3$: TST R2 + CHECK IF NUMBER IS NEG 

10124 061520 001401 BEQ 4$ 7 IF 

10125 061522 005416 NEG (SP) ‘TES NEGATE THE NUMBEP 

10126 061524 012666 000012 43: MOV (SP)+,12(SP) SAVE THE RESULT 

10127 061530 012602 MOV (SP)+,R2 POP STACK INTO R2 

10128 061532 012601 MOV (SP)+,R1 :;POP STACK INTO R1 

10129 061534 012609 MOV (SP)+,RO ::POP STACK INTO RO 

et 061536 000002 RTI ; :RETURN 

10132 061540 005726 5$ TST (SP) + CLEAN PARTIAL NUMBER FROM STACK 
10133 061542 105010 CLRB (RO) <ISET A TERMINATOR 

10134 061544 104400 TYPE aeiwe THE INPUT UP TO BAD CHAR. 
10135 061546 000000 6$: WORD 0 : POINTER GOES HERE 

10136 061550 106400 001336 TYPE ,$QUES 7'" CR" OLe’ 

10137 061554 720 1$ :TRY AGAIN 

10138 i hae gb aeeeiennenntendeeknesearnewtesnsoneaneasenbenktamanens 
10139 

10140 .SBTTL ROUTINE TO SIZE MEMORY 

10142 isCALL: 

10143 : JSR PC,$SIZE 

10144 RETURN 

10145 :SLSTAD WILL CONTAIN: 

10146 : WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
10147 : WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
10148 :*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 

10149 ;*$KT11 IS THE MEMORY MANAGEMENT KEY 

10150 B10? = 4s DON'T USE MEMORY AGENT 

10151 ue SETUP BEFORE THE C 

10152 P*BITI5 = =O. DON'T HAVE MEMORY MANAGEMENT OPTION 

10153 : TERMINED BY ROUTINE 

10154 es extaTEne 

10155 ;*THIS ROUTINE SUPPORTS PDP 11/74. 

10156 ;*IF ACTUAL MEMORY IS LESS THAN THAT INDICATED BY SIZE REGISTER 
10157 :*AND A REFERENCE IS MADE TO A MEMORY ADDRESS THAT IS GREATER THAN 
10158 ;*ACTUAL MEMORY BUT LESS THAN SIZE REGISTER (INDICATED), THEN A 

ve be ‘sMEMORY REFERENCE TIMEOUT TO VECTOR 114 WILL OCCUR. 

10161 061556 010046 $SIZE: MOV RO,-(SP) 7; SAVE RO ON THE STACK 

10162 061560 010146 MOV R1,-(SP) >; SAVE R1 ON THE STACK 

10163 061562 010246 MOV R2,-(SP) 7: SAVE R2 ON THE STACK 
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CEQKCD.E7? «= QU=OCT=79 0 ROUTINE 70 SIZE MEMORY SEG 0221 
10166 061564 010346 MOV R3,=(SP) SAVE R3 ON THE STACK 

10165 061566 013746 000004 MOV @FERRVEC.=(SP) 3 :SAVE PRESENT ERROR VECTOR PS & PY 
19166 061572 013746 000006 “OV MFERRVE (42, =(SP) 

10167 061576 013766 000114 MOV arii4,-(SP) ;;SAVE PRESENT PARITY VECTOR PS & P 
10168 061602 013746 000116 MOV a7il6.-(SP) 

10169 061606 010600 MOV SP,RO ;SAVE THE STACK POINTER 

10170 061610 013737 17777€ 000006 MOV ares, OHERRVEC 2 SET ERRVEC PS TO PRESENT ©S 

10171 061616 012701 003776 MOV #3776 135 TUP ADDRESS 

10172 061622 105727 TSTR (PC) + : USE MEMORY MANAGEMENT ? 

10773 061624 000200 $kT17: WORD 200 : SET TO USE MEMORY MANAGEMENT 
10174 061626 1 BP SCORE BR IF NO 

10175 061630 012737 061774 000004 MOV #SKTNEX, aRERAVEC :gSET FOR TIMEQUT 

10176 061636 005737 177572 1ST avsR ZKT11 ARE YOU THERE? 

10177 061642 052767 100000 177754 BIS #100000. $x111 i VESe-StT KT11_ KEY 

10178 061650 005046 CLR =(S INITIALIZE FOR "PAR" LOADING 
10179 061652 012702 172340 MOV PKIPARO ,R2 ; ADDRESS OF FIRST "PAR 

10180 061656 012703 000010 MOV’ #*DB,R3 [LOAD EIGHT 'PAR.'S'' AND EIGHT ‘PDR.'S"’ 
10181 061662 012762 077406 177740 18: MOV #77406,-40(R2) ::PDR = 4K, UP, READ/WRITE 

10182 061670 011622 MOV (SP), (R2)4 LOAD ‘PAR 

10183 061672 062716 000200 ADD #200, (SP) {UPDATE FOR NEXT ‘PAR’ 

10184 061676 077307 S08 R3,1$ :SLOOP UNTIL ALL EIGHT ARE LOADED 
10185 061700 012742 177600 MOV #177600,-(R2) SETUP KIPAR7 FOR 1/0 

10186 061704 005042 CLR =(R2) SETUP KIPAR6 FOR TESTING 

10187 061706 012737 061724 000004 MOV #2$ ,AMERRVEC SCATCH TIMEOUT IF NO SR3 

10188 061714 012737 000020 172516 MOV #20.aA#SR3 TENABLE 22-BIT ADDRESSING 

10189 061722 000401 BR 3$ [THIS PDP=11 HAS A SR3 REG. « 
10190 061724 022626 28: CMP (SP)+,(SP)+ =CLEAN OFF THE STACK=-NO SR3. 
10191 061726 005237 177572 3$: INC a¥SRO : TURN ON MEMORY MANAGEMENT 

10192 061732 012737 061764 000004 MOV - #SKTOUT,aMERRVEC’ ::SET FOR TIME OUT 

10193 061740 012737 062106 000114 MOV #SMTIMOUT,a#114 ::SET FOR MEMORY REF TIMEOUT TO 114 
1019% 061746 005737 143776 4$: TST #143776 TRAP ON NON-EX-MEM 

10195 061752 062712 000040 ADD #40, (R2) SIMAKE A 1K STEP 

10196 061756 023712 172356 C @*KiPAR7,(R2) LAST ONE? 

10197 061762 101371 BHI 4$ :INO--TRY IT 

10198 061764 011202 $KTOUT: MOV (R2) ,R2 “GET LAST BANK+1 

10199 061766 005037 177572 CLR a¥sro [TURN OFF MEMORY MANAGEMENT 

10200 061772 000421 BR $S1ZEX 

10201 061774 042767 100000 177622 $kINEX: BIC #100000,$KT11_::KT11 NON-EXISTENT 

10202 062002 012737 062032 000004 $CORE: MOV #SCROUT . AMERRVEC geet FOR TIMEOUT 

10203 062010 005002 CLR Re ::SET UP BANK 

10204 062012 062701 004000 1$: ADD #4000,R1 SINCREMENT BY 1K 

10205 016 062702 000040 ADD #40,R2 1K STEP 

0206 062022 005711 TST (R15 STRAP ON TIME OUT 

10207 062024 022701 177776 CMP #177776,R1 “ TLAST_ONE 

9208 062030 001370 BNE 1$ :INO=-TRY AGAIN 

10209 062032 162701 004000 $CROUT: SUB #4000,R1 

10210 062036 162702 000040 $SIZEX: SUB  —-#40,R2 ;:DROP BACK 

10211 062042 MOV RO, SP SIRESTORE THE STACK 

10212 062044 012637 000116 MOV (SP) +,a#116 SIRESTORE PARITY VECTOR 

10213 062050 012637 000114 MOV (SP) +. a#114 

10214 062054 012637 000006 MO\ (SP) +-/@#ERRVEC+2 ;;RESTORE ERROR VECTOR 

10215 062060 012637 000004 MOV (SP) +, Q#ERRVEC 

10216 062 010167 000050 MOV R1,$LSTAD LAST ADDRESS 

10217 062070 010267 000046 MOV R2.$LSTBK “LAST BANK 

10218 062074 012603 MOV (SP) +,R3 TIRESTORE R3 

10219 062076 012602 MOV (SP) +°R2 IRESTORE R2 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.Pi1 79 08:55 


062214 


04-0(T- 
012601 
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012737 
000712 
000000 
000000 
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ROUTINE TO SIZE MEMORY 


SEQ 0222 


MOV (SP)+,R1 ; RESTORE R1 
ae Sache RO ; sRESTORE RO 
000001 177744 $MTMOUT: BIT 110, @4MEMERR ;;MAKE SURE TRAP TO 114 IS 
BNE 44+ TO MEMORY REF TIMEOUT 
F NOT, 1 IT AN ABORT? 
100000 177744 BIT #B1T15,a4MEMERR +: CPU ABOR 
BNE 1$ self YES, ExT 
RTI s1F NOT, CONTINUE 
177777 177744 18: MOV #-1 , QAMEMERR >= CLEAR THE MEM ERROR REG 
BR $kK TOUT 
$LSTAD: .WORD 0 3: CONTAINS THE LAST ADDRESS 
$LSTBK: .WORD 0 77 CONTAINS THE LAST BANK 
SFR AREEKKEAREA ERR AERA RARE RER EKER ER EER AEA EHD 
.-SBTTL TRAP DECODER 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 
$TRAP: MOV RO,-<SP) 7; SAVE RO 
000002 MOV 2(SP), RO 3 GET TRAP ADDRESS 
TST -(RO) tert ad BY 2 
MOVB (RO) ,RO ;GET RIGHT BYTE OF TRAP 
062164 MOV $TRPAD (RO) RO : INDEX TO TABLE 
RTS RO GO TO ROUTINE 
-SBTTL TRAP TABLE 
3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’' INSTRUCTION. 
ROUT INE 
$TRPAD: 
$TYPE 33 CALL=TYPE TRAP+0(104400) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+4(104404) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+10(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
SRDCHR ;;CALL=RDCHR TRAP+12(104412) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN so eee TRAP+14(104414) TTY TYPEIN STRING ROUTINE 
DDEC > CALL=RDDEC TRAP+16(104416) READ A DECIMAL NUMBER FROM TTY 
SSAVREG : ZCALL=SAVREG  TRAP+20(104420) SAVE RO-R5 ROUTINE 
SRESREG : ZCALL=RESREG TRAP+22(104422) RESTORE RO-R5S ROUTINE 
$FL20 >: CALL=FL20 TRAP+24 (104424) 
$FLD20 ;;CALL=FLD20 TRAP+26( 104426) 
CLR REE RER EEE REE E KE EKEEEKEEREEAEEAEK ERE ER EER ERAEEKAEEKE ERE E 
.SBTTL UNIBUS EXERCISER INITIALIZATION ROUTINE 
;*THIS ROUTINE INITIALIZES THE BASE ADDRESS FOR THE 
; *UNIBUS EXERCISER AND LOADS UP THE EXERCISER REGISTERS. 
DL AAR ERR RRR EEE ERK EERE KEE REE ERRA AEA ERENT ERE EKER ED 
002344 117500 UBEINIT:MOV #$ERRTB,UBESAV ;BASE ADDRESS OF UBE TRANSFER 
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10276 062222 005067 117476 


10277 06222h 012767 002344 
10278 062234 005067 117470 


10282 062240 012702 002270 
000010 


12732 172400 
2746 000003 


0 
10293 062314 052737 000040 


10303 062324 104420 

10304 062326 013703 001732 
10305 062332 013702 001734 
10306 062336 042702 177774 
10307 062342 032737 000040 


001005 
10309 062352 010337 001524 
10310 062356 010237 001526 
000421 


10320 062422 005537 001526 
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UNIBUS EXERCISER INITIALIZATION ROUTINE 


CLR UBESAV+2 
MOV #SERRTB, UBEADR :BASE ADDRESS OF UBE TRANSFER 
CLR UBEADR+2 
:SET UP THE UBE AND START IT 
MOV #UBETBL ,R2 :GET ADDRESS OF UBE TABLE 
CLR a10(R2) SCLEAR ALL ERRORS 
MOV #UBESRV,@12(R2) :SET UP UBE VECTOR 
MOV #PR7,14(R2) *SET UP UBE VECTOR PSw 


MOV #172400,a(R2)+ :SET CC FOR 1.3K WORD TRANSFER 


;UBE IS DOING BYTE TRANSFERS 
MOV #3,-(SP) [PUT DEVICE ID IN STACK 
MOV MUBEADR,-(SP)  ;PUT ADDRESS OF PHYSICAL BA ON STACK 
JSR PC ,@4GE TMAP :60 ra MAP REGISTER 


MOV @YUBEADR ,a(R2)+ :LOAD UBE BUS ADDRESS 
MOV @FUBEADR+2,a(R2)+;LOAD ADR BITS 16 & 17 
BIS oe @#SR3 ;ENABLE MAP 

RTS RETURN 


anital eemednnaasenndhaiiuniticinnesseeatnebnanainhanenauaiiawale 


-SBTTL CONVERT UNIBUS VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


°® 
. 


* 
° 
-* 
. 

z 

* 


THIS ~ pg hn CONVERTS THE CONTENTS OF LOCATIONS 

"'ERRBA"* “ERRBA+2"' FROM A VIRTUAL 18-BIT ADDRESS 

TO A PHYST CAL 22-BIT APDRESS AS MAPPED BY THE APPROPRIATE 
MAP REGISTER. THE 22-BiT ADDRESS IS STORED IN LOCATIONS 
"'PA2116'" AND ‘PA1500" 


’ 
OASIS SIGIR IIIS IG ISIS DIOS IOI IOI S ISIS I Et 


PHYMAP: SAVREG 
MOV @FERRBA,R3 ;GET BUS ADDRESS <15:00> 
MOV @FERRBA+2 ,R2 ;GET BUS ADDRESS <17:16> 
BIC #177774,R2 ° - 
BIT #B1T5, QAMMR3 sMAP ON? 
BNE 1$ ;BRANCH IF YES 
MOV R3,a4PA1500 ;PHY ADR=BUS ADR 
MOV R2,@4PA2116 
BR MAPEND 

1$: MOV R3,R5 ;SAVE ADR BITS <15:00> 
ASHC #5,R2 :GET MAP REG SELECT BITS 
BIC #3,R2 ; 
ADD A#MAPLO,R2 :FORM ADDRESS OF MAP REG 
MOV (R2)+,@4PA1500 ;GET CONTENTS OF MAP REG LO 
MOV (R2) ,@A#PA2Z116 :GET CONTENTS OF MAP REG HI 
BIC #160000,R5 ;FORM PHYSICAL ADDRESS 
ADD R5,a4PA1500 : THAT TIMED OUT 
ADC @APA2116 : 

MAPEND: RESREG 
RTS PC 


, LAA RK ERE RK \A2 RRR 2 ERARERSERSSS ARERR RRR RRR RRR RRR SEER SS OS | 


" SBITL 
7 


CONVERT A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 

THIS ROUTINE CONVERTS A 16-BIT VIRTUAL ADDRESS TO A 
22-BIT PHYSICAL ADDRESS. THE VIRTUAL ADDRESS IS 
ASSUMED TO BE IN LOCATION ''VADR'* AND THE PHYSICAL 
ADDRESS IS PLACED IN LOCATIONS ‘PA2116'' AND *PA1500"". 


IF MEMORY MANAGEMENT IS OFF THE PHYSICAL ADDRESS IS 


SEQ 


0223 


ee ee See 
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005004 
010305 
000765 


012703 


105737 


001526 
001524 


001534 


004000 
062632 


001531 


000114 
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CONVERT A VIRTUAL ADDRESS TO A PHYSICAL ADDRESS 


GENERATED BY SUBTRACTING THE CONTENTS OF LOCATION 
“"FACTOR'’ FROM THE VIRTUAL ADDRESS. THIS LOCATION 
CONTAINS THE BYTE OFFSET BETWEEN THE RELOCATED CODE 
AND THE NON-RELOCATED CODE. 


IF MEMORY MANAGEMENT IS ON, THE CONTENTS OF THE 
APPROPRIATE PAR REGISTER IS ADDED(AFTER ADJUSTMENT) 
TO THE LEAST SIGNIFICANT 13 BITS OF THE VIRTUAL ADDRESS. 


. 
Wee eee eRe RRR ERERRRRESRRR SERRA RRRRRRRRRRAR RR RR RAR ARRAS ARRAS SASS SS OD 


CNVADR: SAVREG 


ee ee ee ee ee ee 
ee 


MOV @AVADR ,R3 ;GET VIRTUAL ADDRESS TO CONVERT 
TST a4MMON :1S MEMCRY MGMT ON? 
BEQ 1$ [BRANCH IF NO 
CLR Re 
ASHC #3,R2 ;GET PAR SELECT BITS 
ASH #-3,R3 ;RETURN VIR ADDR TO ORIGINAL 
BIC #160000 ,R3 ee SURE SIGN DIDN'T EXTEND 
ROL R2 E R2 EVEN FOR WORD ADDRESSING 
ADD AKIPARO,R2 ‘Cer ADDRESS OF PAR 
MOV (R2) .R5 =GET PAR DATA 
CLR R4 i; SETUP R4 
ASHC #6,R4 ;SHIFT PAR DATA 
ADD R3,R5 FORM PHYSICAL ADDRESS 
ADC R4 

2$: MOV R4,Q4PA2116 7 SAVE PHYSICAL 
MOV R5,a4PA1500 ADDRESS 
RESREG 
RTS PC RETURN 

1$ SUB @AFACTOR,R3 FORM PHYSICAL ADDRESS 
CLR R4 
MOV R3,R5 
BR 2$ RETURN 


SS EAAAAAA AERA RAHA AEK RARER AREKERARAERAARAEAEARAKKERERRKERRARRARE RED 


“SBTTL ROUTINE TO CHECK RELOCATED DATA 
>*ROUTINE TO CHECK DATA RELOCATED 


5*CALL: RO= HIGHEST ADDRESS +2 OF SOURCE DATA 

i R2= HIGHEST ADDRESS +2 OF DEST DATA 

7* R5= LOWEST ADDRESS OF THE SOURCE DATA 

:* THIS ROUTINE USES A COMPARE INSTRUCTION TO CHECK 

;* THE DATA THAT WAS RELOCATED. IF A PARITY ERROR OCCURS 
* DURING THIS CHECK A SPECIAL ERROR MESSAGE IS TYPED 

* INSTEAD OF THE UNEXPECTED TRAP MESSAGE. 


’ 
DLR R REE RR 


CHKDAT: MOV #2048. ,R3 ; COUNTER 
MOV #2$, aACACHVEC :SETUP PARITY VECTOR 
CMP -(RO) ,-(R2) CHECK DATA 
BNE 99$ 
COM (R2) : COMPLEMENT DEST DATA 
COM (R2) TWICE 
CMP (R2), (RO) CHECK DATA 
BNE 99$ 
1$: as aig BRANCH IF ALL DATA CHECKED 
TSTR AMMON :MEMORY MANAGMENT 9N? 


SFQ 0224 
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001765 
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177744 


177777 


000004 
000002 
177776 


177437 


172350 


000114 
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ROUTINE TO CHECK RELOCATED DATA 


3$: 


99$: 


es: 


7$ 

R3,7$ 

#4096. ,R3 
#200 ,@AKIPARS 
| aaa 


tat erties 


PC 
@AMEMERR , AAS TMP 2 
@ALOADRS , a#$ TMP 3 
@FHIADRS , a#$TMPS 
R2,@4VADR 

RO, a#$TMPO 


5 
#~1 ,QAMEMERR 
99$ 


;BR BACK IF NOT 

;REPEAT 4096 TIMES 

;SET UP COUNTER AGAIN 

7MAP TO NEXT LOWER 4k OF SPACE 
;START Ai TOP OF 4K SPACE + 2 
;CKECK MORE 

ZRESTORE CACHVEC 

ZRETURN 


; SAVE ERROR REG 
; SAVE ERROR ADR 


:CLEAR ERROR REG 
;RE TURN 


; SERRA R ARERR REREEREKERARRERRAEERRAKRA AE 


-SBTTL ROUTINE TO GET A MAP REGISTER 


;*THIS ROUTINE TAKES AN 18 BIT RANDOM NUMBER, FINDS TWO 
;*CONSECUTIVE MAP REGISTERS THAT ARE NOT IN USE, LOADS THE 
;*REGISTERS WITH THE PHYSICAL ADDRESS MINUS THE RANDOM NUMBER 
;*AND THE NUMBER + 4k, AND RETURNS A NEW BUS ADDRESS, BASED 
;*ON THE RANDOM NUMBER. 


MAP REGISTERS 0 AND 1 ARE NOT USED IF THE PROGRAM IS 


Se Be Ve Be Be Be Be Se Be He Be Be Be Be 
Sd 


GETMAP: MO 


RUNNING ON ACT11. 


END OF PASS HOOKS. 
THE MAP TABLE (MAPTBL) CONTAINS 4 BYTES, ONE FOR EACH 


UNIBUS DEVICE. 


PAGE 203 sega 


THIS ALLOWS ‘MOTHER'’ TO ACCESS THE 


IF THE UBE IS PRESENT IT USES THE 


4TH BYTE. WHEN A REGISTER IS ASSIGNED TO A DEVICE, 
THE LOWER 4 ADDRESS BITS OF THAT REGISTER ARE PLACED 
IN THE TABLE. WHEN A DEVICE REQUESTS A REGISTER PAIR 
THIS TABLE IS THEN SEARCHED TO SEE IF THE REGISTER 
PAIR IS _ IN USE. 
ENTER WITH: 


4(SP)=DEVICE ID 


2(SP)=ADDRESS OF THE PHYSICAL ADDRESS 


° 
SEERA RARE AREER RARER AE AERA KAARAEREREREAAERE EAE ERAERETRERERER EEE 


4(SP) ,RO 


(SP) 
Beets te 


(R1)+, @#SGDDAT 
(R1)+. a4#$BDDAT 
PC, a $RAND 
@4$HINUM,R2 
a4$_ONUM,R3 
#-14_R2 
#177°60,R2 


| 
:GET DIVICE ID 
=GET ADR OF PHY ADR 
“SAVE CURRENT PRIORITY 

[MAKE IT READY FOR RESTORE 

SIF THIS IS RK CALL. LOCK OUT UBE 


SAVE PHYSICAL 

; ADDRESS 

GET RANDOM NUMBER 

3GET HIGH RANDOM NUMBER 

GET LOW RANDOM NUMBER 

CONVERT TO 20 BIT NUMBER 

GET RID OF 11 BITS OF SIGN ExT 
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022702 
100001 


062701 
000137 


010046 
016600 


000016 


001532 


020000 


177776 
000004 


000004 
062734 


000004 
000377 


177776 


001716 
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ROUTINE TO GET A MAP REGISTE 


CMP #16,R2 
BPL 3$ 
&R 2e$ 

3% TST aFzav 
BEQ 4$ 
CMPB #0,R2 
BEQ $ 

43: MOV RS 
BIC #BIT15,R3 
ASHC #-2,R2 
BIC #BITO,R3 
MOV R2,-(R1) 
MOV R3,-(R1) 
MOV #4,R5 

1¢ CMPB R4 ,JAAPTBL=-1(R5) 
BEQ 5$ 
SOB R5,1$ 
MOVB R4,MAPTBL (RO) 
ASH ay 
ADD #MAPLO,RS 
BIC #160000,R3 
MOV @ASGDDAT ,R1 
MOV AFSEBDDAT ,R2 
SUB R3,R1 
SBC R2 
MOV R1, (RS) + 
MOV R2, (R4) + 
ADD #20000,R1 
ADC R2 
MOV R1,(R4)+ 
MOV R2, (R24) + 
RESREG 
BIC (SP) +, a4PSW 
MOV (SP) ,4(SP) 
CMP (SP)+,(SP)+ 

TS P 


R C 
;REGISTER PAIR IS IN USE, 
5$: ADD #4 ,R1 


JMP 


a4 2$ 


G 2 
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;LEGAL MAP REG SELECT? 
;BRANCH IF YES 

TRY AGAIN 

SACT11 | OR AUTO)? 


; Q? 

;BRANCH IF YES. (ACT MUST 

;USE THIS MAP REG) 

>SAVE MAP SELECT BITS 

;CLEAR SELECT BIT 0 

FORM 18 BIT ADDRESS 

MAKE SURE ITS EVEN 

RETURN NEW BUS ADDRESS 

;TO THE APPROPRIATE HANDLER 
[SET SOB COUNT 

31S THIS MAP_IN USE? 

:BRANCH IF YES 

: CONT INUE 
;PUT MAP SELECT BITS IN TABLE 
:FORM INDEX TO GET MAP REG ADDR 
;GENERATE MAP ADDRESS 

;GET LS 13 BITS OF RAND NO. 
:GET PHYSICAL 


REGISTER DATA 
;LOAD THE 

‘FIRST MAP REGISTER 
sADD 4K 

:TO MAP DATA 

;LOAD THE 

;SECOND MAP REGISTER 


;RETURN PRIORITY TO ORIGINAL VALUE 
SETUP RETURN PC 
CLEAN UP THE STACK 


RE TURN 
TRY ANOTHER RANDOM NUMBER 


RESTORE R1 
[GET ANOTHER RANDOM NUMBER 


CEERI ISIO ISSO IO ISIOIIIUISISIOIOOISIUSIUIUIISOIUIOIOIOISIIS IOUS I Ott 

» SBTTL GIVE MAP SUBROUTINE 
: THIS ROUTINE TAKES THE MAP ADDRESS OUT OF THE MAP TABLE 
te FOR THE REQUESTING DEVICE AND REPLACES IT WITH 377. 


e: ci | mh ofGet 1.0 cn aie a ee ee 


GIVEMAP :MOV 
MOV 


MOVB 
MOV 
RTS 


RO, iy 
4(SP) ,RO 
a397, MAPTBL (RO) 
(SP)+.R RO 


;SAVE RO 
GET DEVICE ID 
;TAKE IT OUT OF THE TABLE 
:RESTORE RO 
RETURN 


WER ete eeeeeRRESESERERERRRRARRRRRR RR RRR ERR RRR RRR RRR RRR RRR RRR ESS DG 


*SBITL 


ROUTINE TO CLEAR ‘7° 


BIT 


White eee SSSR RSESRR RR RRR RRR SR ER ERR RRR RRR RRR RAR RR RRR RSE SSR EO ED | 


CLRTBIT:MOV 
MOV 


@4PSW,~ (SP) 
(SP), (PC)+ 


;PUSH PSW ONTO STACK 
SAVE IN RETPSW BELOW 


: 


F : 


SEQ 0226 
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000000 
042716 


012746 
000002 
000207 
042737 


016746 
000766 


000003 
000017 


017746 


000020 


063204 


177400 
177750 


116014 
177600 
000003 


001336 
115772 


000015 


001346 
115744 


000017 


116156 


001336 
115710 


177776 


001270 


001270 


001270 
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ROUTINE TO CLEAR 'T‘ BIT 


RETPSW: .WORD 0 
BIC #20, (SP) CLEAR T BIT IN PSw ON STACK 


‘ie ete mse stat. 0! 


~SBTTL ROUTINE TO RESTORE THE T BIT 
SERA RER EER EERE RARER ERE REE CREE EER ERR EE 
RESPSWw: MOV #1$,-(SP) ;SET RETURN PC FOR RTI 
RTI ;CLEAR 'T' BIT IN PSW 
1$: RTS PC ;RETURN 
RESTPS: BIC #177400, a4PSW ;SET KERNEL MODE 
MOV RETPSW,=(SP) ;PUSH ORIG PSwW ONTO STACK 
BR RESPSW 


Ee Re eRe RRR RERESRRLRRA RR SAAAR ESR RE RRR RRR RRR RRR ESR RRR RRR RRR SSD 


"SBITL KEYBOARD INT SERV ROUTINE 


;*THIS ROUTINE HANDLES INTERRUPTS FROM THE KEYBOARD 

** 

*TYPING A CONTROL ‘C* WILL CAUSE THE PROCESSOR TO HAL7 
:*TYPING A CARRAGE RETURN WILL CAUSE A CARRIAGE RETURN-LINE FEED 


:*10 BE TYPED 
*% 
7* TYPING A CONTROL 


*O"' WILL INHIBIT ANY FURTHER TYPEOUT. 


THE SECOND CONTROL ‘O" 


;*WILL ENABLE TYPEOUT AGAIN AND ECHO A CALF. 
-* 
> *ANY OTHER CHARACTER WILL JUST BE ECHOED. 


CAAA RAKE ARERR EEA ERERR REE RHERARAERRARE ERA E EKER EES 


CNTRLC=3 
CNTRLO=17 
TKISR: MOV @$TKB,- (SP) 
BIC #177600, <SP) 
CMP ACNTRLC, (SP) 
BNE 1$ 
MOV M$CRLF-1 ,@A$REGS 
ASRB a$TPs 
TST (SP) + 
HAL T 
RTI 
1$: CMPB #15, (SP) 
BNE $ 
MOV #$CRLF-1,@4SREGS 
ASRB a$TPS 
TST (SP) + 
RT] 
e$: CMPB ACNTRLO, (SP) 
BNE 3$ 
TST (SP) + 
COM NOT YPE 
BMI 7 
MOV 


#$CRLF-1 ,a#$REGS 
a$TPS 


GET CHARACTER 

;STRIP UNUSED BITS 

;BRANCH IF NOT CONTROL c (*C) 
sECHO CR LF 

sPOP CHARACTER CFF THE STACK 
ZRETURN 

BRANCH IF NOT <CR> 

sECHO CR LF 


sPOP CHARACTEROFF STACK 
;RETURN 


;BRANCH IF NOT CONTROL 0 (*0) 


ECHO CR LF 


SEQ 0227 
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CEQKCD.P11 04-0CT=79 08:55 KEYBOARD INT SERV ROUTINE SEQ 0228 
10556 

10557 0633 1044 3$: SAVREG 

10558 063340 011605 MOV (SP) ,RS sRETRIEVE CHARACTER 

10559 063342 004737 063752 JSR PC, @ALDKT ;GO TO LOW CORE 

10560 063346 013700 001452 MOV @ATKBFRP,RO ;GET BUFFER PTR 

10561 063352 110520 4$: MOVB R5,(RO)+ ;LOAD CHAR INTO BFR 

10562 063354 105010 CLRB (RO) =CLEAR NEXT LOC 

10563 063356 022700 001474 5$: CMP ATKBFR+20,R0 ;BRANCH IF NOT END OF BFR 

10564 063362 001002 BNE 6$ 

10565 063364 012700 001454 MOV #TKBFR,RO ;RESET BUFFER PIR 

10566 063370 010037 001452 6$: MOV RO, @4TKAF RE ;RESTORE BFR PTR 

10567 063374 004737 064050 JSR PC ,@ARESKT ;GO BACK TO ORIGINAL MEMORY 

10568 063400 104422 RESREG 

10569 063402 005737 001476 ECHO: TST @ANOTYPE ;TYPEOUT DISABLED? 

10570 063406 100004 BPL 1$ ;BRANCH IF NO 

10571 063410 005726 Tot (SP) + sFIX UP STACK 

10572 063412 105077 115626 CLRB a$TPS :CLEAR IE BIT 

10572 063416 900002 RT] RE. URN 

10574 063420 105777 115629 1$: TSTB a$TFS :PRINTER’ READY? 

10575 063424 100375 BPL 74 ;BRANCH IF NO 

10576 063426 1126077 115614 MOVB (SP)+,a$TPB sMOVE CHAR TO PRINTER 

10577 063432 000002 RT] ‘RETURN 

10578 

10579 

10580 TDI ISISIIOI IO IDIOISIOIOIIDIIDIOIISIUIDIOIOIUIDIOIOIOIOIOIIDIIOIDIDIDIDIDICIOISIDIIDIOISID I IO 

10581 -SBTTL TELETYPE INTERRUPT SERVICE ROUTINE 

10582 :*THIS ROUTINE TYPES A MESSAGE POINTED TO BY THE ADR STORED 

10583 3*IN LGCATION $REGS. THIS ROUTINE IS INTERRUPT DRIVEN. 

10584 DOIG IIIIOIIOIIIISISIUIOIOIIIOIIOIOIOIOIOIUIOIOIIOIOIOIIOIDIOIUIDIDIIOIDIDIOIDIE IOIOIDIDISIDINIOID I 

10585 063434 005237 001270 TPISR: INC @FSREGS ;STEP MESSAGE ADDRESS PTR 

10586 063440 117746 115624 MOVB enews - (SP) ;GET CHAR TO BE TYPED 

10587 063444 001356 BNE ECHO :GO TYPE CHAR IF NOT '‘'O' 
10588 063446 005726 TST (SP) + zPOP STACK | 
10589 063450 005077 115570 a CLR a$TPS :CLEAR IE BIT ‘ 
10590 063454 012737 001554 001270 MOV #NULLS , @ASREGS | 
ead 063462 000002 RT] RETURN 

2 

10593 DDO IORI IDISIOIUIUISIOIOIOIIOIOIOIIIOIOIIOIOIOIOIOIOISIOIOISIIOIOISIDIOISIOIOTOI IIIT TOTTI 

10594 -SBTTL PARITY ERROR SERVICE 

10595 3* THIS ROUTINE FIELDS UNEXPECTED TRAPS TO 114. IT IS ASSUMED 

10596 * THAT THE ERROR WAS IN CACHE AND WAS CAUSED BY THE ‘OTHER 

10597 * WORD'* RATHER THAN THE ‘WANTED WORD'' WHICH MEANS THAT THE 

10598 * BAD DATA IS STILL IN THE CACHE. SO, TO CLEAR THE BAD DATA 

10599 * THE ERROR ADDRESS IS REFERENCED CAUSING THE oe TO GO 

10600 * TO MAIN MEMORY TO GET THE DATA. THIS PREVENTS AN 

Hv dl . ARBITRARY REFERENCE TO THE BAD WORD FROM TRAPPING. 

10605 * AFTER THE ERROR IS REPORTED. BITS 2 AND 3 OF THE MEMORY 

10604 * ERROR REGISTER ARE TESTED TO SEE IF THE BAD DATA IS IN 

10605 * MAIN MEMORY. IF IT IS, THE PROGRAM RESTARTS SINCE THE 

10606 3* GOOD DATA IS NOW LOST FOREVER. OTHERWISE THE PROGRAM 

10607 3* RETURNS TO THE ADDRESS POINTED TO BY ‘‘SLPERR’’. 

10608 DDO IOISIIDIIIOIIOIDIOIOIOIOIDIOIIDICIDIOIUOIIUIOIUIOIDIODIDIDIOIIIUIDIDIOIOIUIDIDIUIDISOIIDIOI IDI 

10609 063464 012737 063744 000114 .PARSRV:MOV #RT1,Q@MCACHVEC ;PUT NEW ADDRESS IN PARITY VECTOR 

10610 063472 016637 000002 001302 MOV 2(SP) ,@#$TMPQ ;SAVER ERROR PSW 

10671 063500 011637 001522 MOV (SP), @#VADR Zs SAVE PC 


hicsets ciate eens da Sea cseracai een 
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CEQKCD.P11 04-00T=79 08:55 PARITY ERROR SERVICE SEQ 0229 
10612 063504 162737 000002 001522 SUB #2, QAVADR ADJUST ERROR PC 

10613 063512 013702 177744 MOV @AMEMERR ,R2 ;GET ERROR REGISTER 

10614 063516 913703 177740 MOV @ALOADRS ,R3 ;GET LO ADDRESS ERROR RFG 

10615 063522 010337 001310 MOV R3,a4$TMP3 [PUT LOW ADR IN MEMORY 

10616 063526 013737 177742 0012712 MOV @AHIADRS ,aASTMPS- ;GET HI ADDRESS ERROR REG 
10617 063534 042703 176000 BIC #176000 ,R3 ;MASK OFF LOWER TEN BITS 

10618 063540 013704 172354 MOV @4'K IPARG,R4 7SAVE PAR6 

10619 063544 105737 001531 TSTB @AMMON ;1S MEMORY MGMT ON? 

10620 063550 001467 BEQ 1$ ;BRANCH IF NO 

10621 063552 005037 172354 CLR ask IPAR6 ; CLEAR PAR6 

10622 063556 012737 077406 172314 MOV #77406, @AKIPDR6 ; ENSURE PDR 6 RESIDENT 

10623 063564 052703 140000 BIS #140000,R3 SETUP R3 TO REFERENCE THRU PAR6 
10624 063570 105713 1$: TSTB (R3) “REFERENCE ADDRESS THAT TRAPPED 

10625 ; SHOULD CAUSE ABORT 

10626 063572 005102 2$: COM R2 GET ORIGINAL MEMORY 

10627 063574 010237 177744 MOV R2, Q4MEMERR ERROR REG DATA 

10628 063600 013737 177744 001306 PERET: MOV @AMEMERR , AAS TMP 2 ;SAVE ERROR REG FOR TYPEOUT 
10629 063606 013737 001212 001266 MOV @A4$SLPERR , AASRE G4 : SAVE LOOP ADDRESS 

10630 063614 012737 063624 001212 MOV #2$ ,AASLPERR ;SET RETURN ADDRESS IF LOOPING 
10631 063622 104004 ERROR 4 

10632 063624 013737 001266 001212 2$: MOV @ASRE G4 , AASLPERR ;RESTORE LOOP ADDRESS 

10633 063632 010437 172354 MOV R4 , @#KIPAR6 RESTORE PAR6 

10634 063636 013704 177744 MOV @AMEMERR ,R4 ;GET MEM ERR REG 

10635 063642 012737 177777 177744 MOV 4-1, @4MEMERR : CLEAR ERR REG 

10636 063650 012737 063464 000114 MOV #.PARSRV ,a#CACHVEC RESTORE PARITY VECTOR 

10637 063656 042704 177763 BIC #177763,R4 :CLEAR ALL BUT BITS 2 & 3 

10638 063662 001426 BEQ 1$ BRANCH IF NOT MAIN MEMORY ERROR 
10639 063664 104400 063672 TYPE ,65$ : TYPE ASCIZ STRING 

10640 063670 000420 BR 64$ *GET OVER THE ASCIZ 

10641 365%: .ASCIZ /FATAL PARITY ERROR-RE START ING/<CRLF> 

10642 063732 64$: 

10643 063732 000005 RESET :CLEAR THE WORLD 

10644 063734 000137 003542 JMP @A4START 

sr 063740 012716 063746 1$: MOV aX, (SP) aad ge ON STACK TO GET ORIGINAL 
10647 063744 000002 RT1: RTI :GET OLD PSW 

10648 063746 000177 115240 X: JMP @$LPERR [JUMP TO START OF TEST THAT HAD THE PE 
10649 Wee eee eee RRR RRR REESE ERRRAEESARLS SASL EARS RAR ALAS ASE R RRR RRS SS SS 
10650 » SBITL CONTEXT SWITCH DOWN SUBROUTINE 

10651 ; SUBROUTINE TO SAVE & LOAD KIPAR'S 0,1,2 AND 3 (IF MEM MGMT ENABi ED) 
10652 ‘e THIS ROUTINE IS CALLED BY THE KEYBOARD INTERRUPT, LINE CLOCK 
10653 7? INTERRUPT, UBE SERVICE ROUTINE, MBT SERVICE ROUTINE, AND TYPE TIME ROUTINE. 
10654 CLARA RARER REA E ERE RARER AEE REAR AER AER REAR AEE REE ERE 
10655 063752 105737 001531 LDKT:  TSTB aAMMON ;BRANCH IF MEM MGMT DISABLED 
10656 063756 001433 BEQ 1$ 

10657 063760 012604 MOV (SP) +,R4 SAVE RETURN PC 

10658 063762 013737 177776 001516 MOV @APSW,@ASSAVPSW ;SAVE THE CURRENT PSW 

10659 063770 042737 140000 177776 BIC #140000,a4PSW  ;GO TO KERNEL MODE 

10660 063776 012700 172340 MOV #KIPARO,RO GET ADDRESS OF PARO 

10661 064002 012001 MOV (RQ)+,R1 ;GET PARO 

10662 012002 MOV (RO)+,R2 GET PARI 

10663 012003 MOV (RO) +,R3 ;GET PAR2 

10664 064010 012005 MOV (RQ) +,R5 GET PAR3 

10665 064012 012740 000600 MOV #600,-(RO) ;BACK TO LOW CORE 

10666 064016 012740 9000400 MOV #400,-(RO) ;RELOC BACK TO LOW CORE 


10067 064022 0127460 000200 MOV #200.,,-(RO) 
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001506 


001531 


001506 
172340 


001516 


000002 
001522 
000 


001266 
170000 
001212 


000002 
001522 
000002 
001212 
064254 


001266 
001212 


oth PDP 117 70= 74M CPU EXERCISER 
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177776 


001302 


001522 
001306 
001310 
001266 
001212 


001212 
177572 


001302 
001522 
001266 
001212 


001212 
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CONTEXT SWITCH DOWN SUBROUT! 
CLR -(RO) 


MOV #SSAVPAR ,RO 


MOV R1,(RO)+ 


1$: RTS 


;GET ADDRESS OF SAVE BUFFER 
:PUT PAR DATA IN MEMORY 


;PUT RETURN PC ON STACK 


SERRE KEREEREAEEKERERAEEAREKEEREKEAEAAKEAEEREREKREREP ERE 


“SBITL CONTEXT SWITCH UP SUBROUTINE 
= SUBROUTINE TO RESTORE KIPARO, 


1,2 AND 3 (IF MGMT ENABLED) 


STEAK ERAARRERERREEER AKER ERERARAEAEREAERER REE 


RESKT: TSTB a4MM0N 


BEQ 1$ 

MOV (SP) +,R4 
MOV #SSAVPAR ,RO 
MOV (RO)+,R1 
MOV (RO) +,R2 
MOV (RO) +,R3 
MOV (RO}+,R5 


MOV #K IPARO,RO 


at 
MOV aASSAVPSW, aAPSW 


MOV R4,-(SP) 
1$: RTS PC 


;BRANCH IF MEM MGMT DISABLED 


GET RETURN PC 
;GET ADDRESS OF SAVE BUFF 
:GET OLD PAR DATA 


;GET ADDRESS OF PARO 
;RELOCATE BACK 


Wee AS eee eRe RRERAESELASAAA AS SAR RARER RRR SAR RR RRR RRR RR RRR RRR ERS SS S| 


“SBTTL KT ABORT SUBROUTINE 


ene AAAS REERERSSESALALEASLASA SASS SSSR RS SAS SA SSSR SES ASR AR SERS SSS SS 


KTABRT: MOV 2(SP) , aA#STMPO 
MOV (SP), @#VADR 
SUB #2 ,@AVADR 
MOV aAMMRO , AAS TMP 
MOV VMPR2 , BAST 
MOV @ASLPERR , AASRE G4 
MOV #1$, a#SLPERR 
ERROR 3 

1$: MOV @#SREG4 , AASLPERR 
BIC #170000, a4MMRO 


MOV @A$LPERR, (SP) 


SAVE ERROR PSW 
SAVE ERROR PC 


7 SAVE MMRO 

; SAVE MMR2 

; SAVE LOOP ADDRESS 

:SET RETURN ADR IF LOOPING 


RESTORE LOOP ADR 
; CLEAR ERRORS 
:GET LOOF ADDRESS 
RETURN 


SRE RRR A REE RK EKER E REE ERE RE RRE RE ER ERE RE RRKEE 


“SBTTL RESERVED INSTRUCTION ROUTINE 


SL ARERR EKER EERE EEE REE EERE EERE EEE REE ERE REE EER EERE EH 


RESERR: MOV 2(SP) ,aASTMPO 
MOV (SP) ,@#VADR 
SUB #2 ,@AVADR 
MOV @ASLPERR , AASRE G4 
MOV #1$,Q4SLPERR 
ERROR 2 

1$ MOV OASREGS , AMSLPERR 


MOV @A4$LPERR, (SP) 


SAVE PSwW 
SAVE ERROR PC 


;SAVE LOOP ADR 
ZSET RETURN ADR IF LOOPING 


RESTORE LOOP ADR 
;GET LOOP ADDRESS 


SEQ 0230 | 
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CEQKCD.P11 04-0CT=-79 08:55 RESERVED INSTRUCTION ROUTINE SEQ 0231 
*Or Re 064266 000002 RTI ; RETURN 
10736 LRA REE EEE EERE EEE EER Re ee 
10727 -SBTTL TRAP TO 4 SERVICE ROUTINE 
10728 DOUG IUISIIIOIINIUIDIOIOIIUIUIUISIIIEIIUIUIOIOIOUUIUIIOUIUIDIIIODE innit nnn 
10729 064270 016637 000002 001302 ERPRT: MOV 2(SP) ,@A#STMPO ;SAVE ERROR PSW 
10730 064276 011637 001522 MOV (SP) ,@#VADR ; SAVE ERROR PC 
10731 064302 162737 000002 001522 SUB #2,@A4VADR 
10732 064310 012706 000700 MOV #SUPSTK, SP ;RESTORE SP 
10733 064314 013737 177766 001306 MOV @SCPUERR , AAS TMP2 ;GET ERROR REG 
10734 064322 013737 001212 001266 MOV @FSLPERR , Q#SREGS ;SAVE LOOP ADR 
10735 064330 012737 064340 001212 MOV #1$,A4$LPERR ;SET RETURN ADR IF LOOPING 
10736 064336 104001 ERROR 1 
10737 064340 013737 001266 001212 1$: MOV @FSREGS , AASLPERR ;SET LOOP ADR 
10738 064346 005037 177766 CLR @4CPUERR 
10739 064352 013746 001302 MOV @ASTMPO ,-( SP) ;SETUP STACK TO RETURN 
19°40 064356 013746 001212 MCV @4$LPERR ,-(SP) 

10741 064362 000002 RTI RETURN 
10742 
af 





AAAAAAAAAANRAAAAAAAAAAAAAAVNOOAOCOM MPCOWWTWWWAIWwaowaaew Woo woes og 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
CEQKCD.P11 79 08:55 
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053517 
000077 
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046040 
046040 
050122 


052116 
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TRAP TO 4 SERVICE ROUTINE - SEQ 0232 


; THE BELOW TABLE REPRESENTS THE ‘NEW* PSW SET BY THE PROGRAM ON 
; SUCCESSIVE SUB-PASSES. 
;NOTE THE BELOW TABLE MAY BE MODIFIED TO CAUSE THE PROGRAM TO RUN 
;UNDER USER DEFINED PARAMETERS BY PATCHING IN THE DESIRED PASS PARAMETER 
7FOR EXAMPLE TO CAUSE THE PROGRAM TO RUN WITHOUT SETTING THE ‘T’ BIT 
3 IN ALL PASSES PATCH OUT THE 'T’ BIT IN THE TABLE. 


PSWTAB: 000000 
000020 :T-BIT TRAPPING 


140000 [USER MODE 
144020 ;USER MODE, REG SET #1, T-BIT TRAPPING 
040000 SUPERVISOR MODE 
044020 ;SUPERVISOR MODE, REG SET #1, T-BIT TRAPPING 
; THE BELOW TABLE IS USED TO SET MEMORY aye yee 
MRGTAB: .WORD 0 O MARGINS 
“WORD 4 “EARLY STROBE 
-WORD 6 SLATE STROBE 
«WORD 10 ;LOW DRIVE Doct 
-WORD 0 :NO MARGIN 
«WORD 12 ;HIGH DRIVE CURRENT 


;MESSAGES 
-EVEN 
REGINX: at ny 


KDS 
WORD 
WORD 
RP4CS1 
RSCS1 
. WORD 
. WORD 
MBTTBL 
UBE TBL 
MSGINX: .WORD MSG5 
-WORD MSG6 
D MSG21 
WORD MSG21 
WORD MSG10 
WORD MSG11 
WORD MSG21 
WORD MSG21 
WORD ang hk 


WORD 624 
MSG1: -ASCIZ <CRLF>"LOW LIM?" 
MSG2: eASCIZ ‘HIGH LIM?' 
MSG3: -ASCIZ /ERRORPC PHYSC PC PSW MAINT TEST NO SUB=-PASS CNT/ 
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DE Qk D 
CEQKCD.P11 04-OCT-79 08:55 TRAP TO 4 SERVICE ROUTINE SEQ 0233 C 
Ly da >MSG4 HAS BEEN MOVED TO END OF PROGRAM £ 
0800 | 
10801 064577 122 030120 004463 MSGS: .ASCIZ ?RPO3 ? C 
10802 064604 000 D 
10803 064605 122 030113 004465 MSG6: .ASCIZ ?RKOS ? DI 
10804 064612 000 o 
10805 064613 122 030120 004464 MSG10: .ASCIZ ?RPO4 ? 9) 
10806 064620 000 
10807 064621 122 030123 004464 MSG11: .ASCIZ ?RSO4 ? DI 
10808 064626 000 D 
10809 064627 104 053122 052123 MSGi2: .ASCIZ /DRVSTA ERRREG CSREG WRDCNT BUSADR DSKADR CYLADR(RPO3) PHYS BUSA DI 
10810 064634 020101 042440 051122 DI 
10811 064642 042522 020107 041440 DI 
10812 064650 051123 043505 020040 DI 
10813 064656 40 042122 047103 DI 
10814 020124 041040 051525 DI 
10815 064672 042101 020122 042040 DI 
10816 700 045523 042101 020122 D 
10817 064706 041440 0461 042101 DI 
10818 064714 024122 050122 031460 DI 
10819 064722 020051 050040 054510 DI 
10820 064730 020123 052502 040523 DI 
10821 064736 051104 000200 DI 


10822 064742 041440 030523 020040 MSG13: .ASCIZ / CSI WRDCNT BUSADR BADREX DSKADR (CS2 CS3 DRVSTA ERRREG/ 


10827 065000 020040 051504 040513 D 
10828 51104 020040 041440 D 
1 065014 031123 020040 020040 D 
10830 065022 041440 031523 020040 D 
10831 030 020040 051104 051526 D 
10832 065036 040524 051105 DI 


065052 042504 041523 046131 ™MSG14: .ASCIZ /DESCYL ER2 ER3 RPCC/<CRLF> DI 
10835 065060 020040 042440 031122 DI 
10836 5 020040 020040 042440 D 
10837 065074 031522 020040 020040 DI 


10838 000200 
10839 065110 040515 051523 041040 MSG15: .ASCIZ /MASS BUS “ESTER / 
1084 052040 





10841 065124 04 020122 Di 
10842 065131 040 051503 020061 MSG16: .ASCIZ / CS1 WRDCNT BUSADR BADREX MR2 CS2 ST ER CS3/< DI 
10843 065136 020040 053440 042122 Di 
10844 065144 047103 020124 041040 D 
10845 065152 051525 0421 020122 
065160 041040 042101 04 

10847 065166 020130 020040 046440 

10848 065174 031122 02 020040 

10849 065202 041440 031123 04 D 
10850 065210 020040 02 052123 D 
10851 065216 02 020040 042440 D. 
10852 065224 020122 02 020040 dD. 
10853 065232 041440 031523 000200 De 
10854 065240 020040 041503 020040 MSGI7: .ASCIZ / CC BUSADR CR2 CR1 PHYS BUSADR/<CRLF > Dt 
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0 
041520 


052502 
020040 


044516 
054105 
042523 


052120 
000 


SEA 


040523 
020040 
020040 


02006" 
020123 
051104 


052521 
051102 


020040 
020040 
052502 
051105 
020122 


041456 


050730 
020104 
052040 


050124 


051122 
000 


001302 


042520 
052040 
047524 


050124 
051531 
020040 


B 3 te ieee organ. 4 
MACY)? B3OAC70S2) O6-007=79 09:00 PAGE ole i 
TRAP 70 & SERVICE ROUTING SEQ 02% | 
| 
MSG2O: AS TZ (THE QUIoR BROWN FORM JUMPED OVER THE (AZY DOGS BACH 01054656 7B9/« 15 >< 10> 
MSG2!: .ASCIZ /ILLEGAL DEVICE/<CRiF> 
MSG2e2:. ASCII 7 / 
MSG23: .ASCIZ / / 
MSG264: .ASCIZ /UNIBUS EXERCISER / 
MSG25: .ASCIZ /OPT.CP=/ 
:MSG30 THROUGH MSG38 ARE AT END OF LISTING 
—EM1: -ASCIZ- /UNEXPECTED TRAP TO 4/ 
DH1: eASCIZ /PCOFTP PHYSPC PSwW CPUERR/ 
DF1: BYTE 0,1,0.0,0 
EVEN 
DT1: -WORD VADR,VADR,$TMPO,$TMP2,0 
EM2: -ASCIZ /UNEXPECTED TRAP TO 10/ 
DHe: eASCIZ /PCOFTP PHYSPC PSW/ 
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33333 
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Ee 
ERE 
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065660 


04-0CT 
051520 


042522 


000127 
001522 
054105 

05 


001 


047514 


001302 
042520 


046515 


001302 
00 


045503 
042101 


020115 
042522 


002 
001310 
020122 


020103 
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TRAP TO 4 SERVICE ROUTINE 


DT2: 
EM3: 


DH3: 


DT3: 
EMG: 


DH4: 


DF4: 
EMS: 


DHS: 


DFS: 


DTS: 
EM6: 


«EVEN 
. WORD 
-ASCIZ 


ASCIZ 


-EVEN 
. WORD 


-ASCIZ 


-ASCIZ 


-BYTE 
-ASCIZ 


-ASCIZ 


“BYTE 


EVEN 
. WORD 


-ASCIZ 


VADR,VADR,$TMPO ,0 
/UNEXPECTED TRAP TO 250(MGMT)/ 


/PCOFTP PHYSPC PSwW MMRO MMR? / 


VADR,VADR,$TMPO ,$TMP2,$TMP3,0 
/UNEXPECTED TRAP TO 114/ 


/PCOFTP PHYSC PC PSW  ERRREG ERR ADR REG/ 


0.1,0,0,2 
/PARITY ERROR DURING DATA CHECK/ 


/SRCADR DSTADR EADRREG MEM ERR REG/ 


0,1.2,0 


$TMPO,VADR,$TMP3,$TMP2,0 
/ERROR DURING DATA CHECK=RELOC WAS BY CP/ 


SEQ 0235 
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CEQKCD.P11 04-OCT-79 08:55 TRAP TO 4 SERVICE ROUTINE SEQ 0236 


10967 066306 040527 pea agt 054502 
10969 066320 051123 040503 051104 DHé: -ASCIZ /SRCADR DSTADR/ 
10970 B66 36 020040 051504 040524 


10973 066340 001302 001522 000000 DTé: "WORD  $TMPO,VADR,0 
10974 066346 051105 047522 020122 EMi0: -ASCIZ ERROR DURING DATA CHECK=RELOC WAS BY |/0? 


0 
10981 066417 123 pone 042101 DH10: eASCIZ /SRCADR DSTADR- DEVICE THAT DID XFER/ 


066454 042040 poeta) 054040 
10988 066466 ia 001 OOS DOFIO: BYTE 90,1,3,0 


10991 066472 001302 Rank 001306 DT10: WORD $TMPO,VADR.$TMP2,$TMP3,0 


10993 066504 044502 024124 024523 EM11: sASCIZ /BIT(S) STUCK IN MICRO-BREAK REGISTER/ 
10994 066512 051440 052524 oats 


10997 066534 040505 020113 042522 
10998 066542 044507 052123 051105 
10999 066550 000 
000 066551 107 047517 042104 DH11: .ASCIZ /GOODDAT BAD DATA/ 
001 066556 052101 041040 042101 
002 066564 042040 052101 000101 
ee 066572 000 000 DF 11: — 0.0 
oEV 
005 066574 001302 001304 000000 DT11: .WORD $TMPO,$TMP1,0 
006 066602 041125 020105 047516 EM12: .ASCIZ /UBE NON-EXISTANT MEMORY ERROR/ 
007 066610 026516 054105 051511 
008 066616 040524 052116 04 
009 066624 046505 051117 020131 


ee ee ee eee ee ee Le 
kk ak kd ot oh a“) ot oh ot SS 


01C 066632 051105 047522 000122 

011 066640 044120 051531 041040 DH12: .ASCIZ /PHYS BUSADR/ 
012 066646 051525 042101 000122 

013 066654 002 Fiz: BYTE ¢ 

014 066656 -EVEN 

015 066656 001226 000000 DT12:  .WORD $GDDAT,0 

016 066662 041115 020124 047516 EM13:  .ASCIZ /MBT NON-EXISTANT MEMORY ERROR/ 
a 066670 026516 054105 051511 

019 

026 

021 

022 


066676 040524 052116 046440 

066704 046505 051117 020131 

066712 051105 047522 000122 

066720 044120 051531 040440 DH13: .ASCIZ /PHYS ADDRESS/ 
066726 042104 042522 051522 
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047514 052101 EM14: eASCIZ /FLOATING POINT ERROR/ 
047520 
051105 


030524 DHI4: ASCIZ = / DTAT] DATA2/ 
040504 


-EVEN 
001316 DT14: -WORD $TMP4,$REG2,$TMP6,$REG3,0 


067014 004 000 004 DFI14: -BYTE 4,9,4.,0 


067020 042504 044526 042502 EM15: eASCIZ = /DEVICE HUNG/ 
067026 044040 047125 000107 
DH16: ASMIZ 7 DATAI DAT42/ 


oo 
BLE 
& 
~ 
Oo 
£ 
R 
— 
— 
o 
> 
Oo 
Ww 
So 
~~ 
So 
& 
oO 
Ww 
mM 
> 


004 
067050 020040 042040 052101 
005 OF16: .BYTE 5,0.,5,0 


067066 -EVEN 
7066 001432 001262 001442 DT16: -WORD FLTMPO,$REG2,FLTMP1 ,$REG3,0 


001264 
067100 030122 043040 044501 EMI17: eASCIZ /RO FAILED TO LOAD CORRECTLY ON MFPT/ 


Swnr-oO 
& 
~ 
& 
— 
So 
So 
So 


EM20: eASCIZ /CIS INSTRUCTION FAILURE / 


067174 000000 ENDTAG: .WORD 0 
DDRII IOI Ek ttt t ttt 
; THE FOLLOWING ASCII GETS OVERLAYED WHEN THE PROGRAM RUNS. 

052101 SWITCH: .ASCII] /OPERATIONAL SWITCH SETTINGS/<CRLF> 


AASSSASASSGRREREKRREK 


WHO ODNAMNEWWN-O OONOW 
N 
Py — 
> 
* 
+ 
Ww 
oO 
Ww 
oO 
Nm 
oO 
J 
Nm 
WwW 
So 
* 
N 
— 
—! 
—— 


044524 


044103 eASCI! /SWITCH USE/<CRLF > 
067240 wel 052411 042523 


067247 040 030440 004465 ASCII / 15 HALT ON ERROR/<CRLF > 


ab oe 
BRARAKARDOULLUD 
“i WAS VONRORS 
& SFSSSSE 
S NNN NSN ONS 
SaaS SERS 

Mme BWOMmOOfr 

—- OENMNNN 
W WSLOWUH——oO 

— Nw —n— 
fh p gargs, Sartart - ¢ 

oo 

8S 888888 

—- ODfOOCOO 

NM one 

QO BA—MwNVO 

Me MOHHWEN 


SESEPERES 
- 
BY 


IIS8 

moo 
NN 
Mr 
aw 
mL 
oo 
Po 
NS 
=—O 
— 2 
>) 
oS 
RR 
NO 
, 
fo 
o-— 
oo 
AN 
—O 
—_—. 
MOM 
Ros 


2 
067273 040 030440 004464 ASCII] / 14 LOOP ON TEST/<CRLF> 
073 067300 046011 047517 020120 
1074 067306 047117 052040 051505 


11076 067316 020040 031461 004411 MSCIT 7.213 INHIBIT ERROR TYPEOUTS/<CRLF > 
11077 067324 047111 044510 044502 
11078 067332 020124 051105 047522 
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020122 054524 042520 
052517 051524 200 

040 004462 ASCII / 12 INHIBIT UBE/<CRLF > 
044116 041111 


| 
052440 042502 


re 
8 
tk 
ano 


cS 

00 0000 

WE Ww 
BERS 
NNNN 
aegis 
UNE AO 
SR 
LAS? 
we & 
—_— 2 


030440 004461 ASCII / 117 INHIBIT ITTERATIONS/<CRLF > 
044176 041111 
044440 052124 
052101 047511 


S382 
: 
3 


1 

: 

0 

1 

1 

é 

0 030440 004460 -ASCII / 10 BELL ON ERROR/<CRLF> 
1 046105 020114 

4 042440 051122 
0 

1 

7 

7 

1 

0 


$336 
288 

z 
R 


020040 004471 AX] * 3 LOOP ON ERROR/<CRLF> 
047517 020120 
042440 051122 


020040 004470 moti - Fe ALLOW RELOCATION VIA I/0 DEVICE (NOTE CHANGE) ?<CRiF > 


3 
e 


saeage 2 
282 
: 


067563 040 020040 004467 Ait ./ ff INHIBIT TYPEOUT OF THIS TEXT AND SYS SIZE/<CRLF> 


042532 


067643 040 020040 004466 ASCIT: *# 6 INHIBIT RELOCATION/<CRLF > 
067659 044411 044116 041111 
067656 052111 051040 046105 
067664 041517 052101 047511 


067674 020040 032440 004411 wot 9 INHIBIT ROUND ROBIN RELOCATION/<CRLF > 





067732 ~ 044524 047117 
067741 040 020040 004464 Stil / 4 INHIBIT RANDOM DISK ADDRESS/<CRLF > 


RENNIN NN NONDN  @ a SP OO Ow HS HOO 


ee at a et et a VV oe ee to oe a eg a ng a at) ot 2 hh oh ot st 8 SS et oJ Lt st 5 
SB BIFSR 
OW NOA UE WN O OWNAUSWN—ODWNAMUEWN— 
~N 
@ 
© 
N 
So 
— 
% 
Ww 
Ss 
wn 
Nw 
Ww 


eed a od do on os ot tH tH SI oe os SH OH oS I HH Ss og I 8 SH Ot VS SH ot SV oS OS SS Os) 


bee a a et et od ot od ot tt I SO St SS SS SH Os ot ot ot ot ot st 


WAIAWGW 
Diwt— 
& 
N 
N 
™S 
on 
RRR 
N 
Ww 
ine) 
N 
So 
wn 
_ 
Ww 
NM 
wn 


200 
070003 040 020040 004463 MIT FS INKIBIT MBT/<CRLF > 
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044716 041111 
046440 052102 


020040 ASC THESE THREE SwWITCHES/<CRiF > 
042510 


oul 
— 
out 
Ww 
Wi 


ARE ENCODED TO SELECT RELOCATION/<CRLF > 


044524 
004460 . ON THE FOLLOWING DEVICES:/<CRLF> 


042503 


027056 So ae .« -RP11/RPO03?«CRiLF > 
051057 


051056 ASCII? . » «RK11/RKO5?<CRLF > 
045522 


027056 ASCII 2? .--NOT USED?<CRLF> 
051525 


027056 ASCII 2-3 - «NOT USED?<CRLF> 
051525 


027056 AIT 7 . « -RH70/RP04 ?<CRLF > 
051057 


§21038 sASCIT- 7 .»~RH70/RS04 OR RSO3?<CRLF > 


ASCII 7 .--NOT USED?<CRLF > 
051525 


027056 -ASCI7 ? ---NOT USED?<CRLF> 
057525 


ares’ : ASCII] <CRLF>/THE FOLLOWING DEVICES AND DRIVES WILL BE USED FOR RELOCATION IF B 


- 
ee ee ee ee ee ee Pe eee ee ee ee ee Pe ee ee Le Le LL TL 
eg a ee me a ek a km a a a ee a a a ad ed ng ed od od 2d 8 = 
ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee Lee ee eee 


36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
&7 
88 
89 
90 





041517 052101 047511 
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020 


—_ 
_) 
— 
oO 
— 
oO 
g 
[eal 
o 


6 043111 041040 
! 034040 051440 
; 


044526 042503 eASCIZ = /DEVICE DRIVES/<CRLF> 
on 042526 


070517 015 025012 thes MSG30: .ASCI] <15><12>/**NOTE®* SWITCH REG BIT 8 HAS BEEN REVERSED IN REV D/<CRLF> 


Broene 020116 042522 020126 
070606 047516 042524 052040 -ASCII “NOTE THAT SWR BIT 8 SET NOW ALLOWS I/0 RELOCATION’ ‘<CRLF><CRLF> 


SRLESRALSSSSLEFRAN 
oO 
SN 
oO 
yi 
Oo 
R 
R 
Ww 
Ww 
oO 
La] 
So 
* 
— 
=) 
a 
oO 


pipes 041517 we 047511 
070671 124 044510 020123 eASCII "'THIS PROGRAM SUPPORTS 1/0 RELOCATION ONLY WITH THE FOLLOWING DEVICES:** 


070764 020107 042504 044526 
070776 po uess 030120 026063 -ASCIZ <CRLF >’ RPOS,RK05,RP04/5/6,RS03/4"' 


WWW PONOAONINININNDY PO ss ss? Os Os 
ASISVSVRARAN = SOwWWAnRW=O 
oO 
~sS 
oO 
my 
© 
NM 
oO 
ah 
= 
Oo 
N 
— 
— 
N 
So 
Ww 
* 
Vv 
par 
> 


Ww 


000 
071031 113 ote — MSG31:  .ASCIZ ‘B11-EM"'<15><12> 
MSG32: .ASCIZ ''11/74 (KB11CM)''<15><12> 


GP NG NANG NN Nes Nea re Ne ge i pli i tl AGATA GU GGA 4d fer a es 
RAK 
So 
N 
— 
lw 
Oo 
aw) 
N 
x 
oa 
—2 
Oo 
wW 
S 
N 


37 071056 020040 020040 045450 

38 071064 030502 041461 024515 

39 071072 005015 000 

40 071075 015 041412 052520 MSG34: .ASCIZ <15><12>''CPU UNDER TEST FOUND TO BE A “' 
41 071102 052440 042116 051105 
242 071110 952040 051505 020124 
243 071116 047506 047125 020104 


244 071124 047524 ae 020105 
246 071135 113° 030502 (26461 MSG35: .ASCIZ °kB11-B/0'°%«15><12> 


ee ee ee ee eee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee ee Le Oe eT 
kk ek a ek a ek a ng a ik a a ak tk at 0g Fh) 2 td 2 od 6 ot ot gn St ot 
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11247 071142 027502 006503 000012 
112468 071150 041113 0304661 042455 MSG36: .ASCIZ ‘KB11-E''«<15><12> 


000 
250 071161 103 051511 020120 MSG37: .ASCIZ /CISP OPTION NOT FOUND/<15><12> 
51 071166 050117 044524 047117 
2 071174 047040 052117 043040 
a7 071202 win 4 042116 005015 


5S 071211 103 051511 020120 MSG38: .ASCIZ /CISP OPTION FOUND/<15><12> 
56 071216 050117 0464524 047117 

2 071224 043040 052517 042116 
59 


ao 





071232 005015 000 
000001 END 
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Ao 





A 041210 7125* 7231 7232 73204 7391 ' 
AA 001533 7344 1236* p 
ADCB2 013656 2624 26264 f 
ADCBS 014516 2856 28584 f 
ADCB6 38015234 3014 3015 30174 f 
ADCB7 016172 3239 3240 3241 32434 f 
ADCO 011512 2018 2019 2020 20224 f 
ADC1 012426 2249 2250 2251 22538 f 
ADC2 013452 2553 25554 p 
ADCS 014310 2783 2784 27864 uy 
ADC6 015030 2956 2957 29598 f 
ADC7 016032 3196 3197 31994 A 
ADDN = 076050 547#@ 7069 f 
ADDNI = 076150 S79# 7047 p 
ADDP = 076070 5624 867178 p 
ADDPI = 076170 5874 f 
ADDC 016674 3407 3408 3409 34114 p 
ADD1 017006 3445 3446 34484 ' 
ADDiA 017232 3528 3529 3530 35324 ' 
ADDIB =017250 3537 3538 35404 ' 
ADD2 017706 3684 36874 t 
ADD3 020500 3878 38804 ' 
ADD6 021072 3981 39844 ' 
ADD7 021564 4099 4100 4101 41034 ' 
ARBEX 043032 7440 74834 ' 
ARBFIN 043020 7425 7447 7468 7470 74818 ' 
ASHCLO 030402 55824 ' 
ASHCRO 030460 56034 ' 
ASHLO 030172 55324 ' 
ASHL1 031004 57164 | 
ASHN = 076056 5534 7074 | 
ASHNI = 076156 5854 7039 7043 7051 7105 ' 
ASHP = 076076 5684 7172 7183 ! 
ASHPI = 076176 5934 7155 ! 
ASHRO 030306 55594 ! 
ASHR1 031072 57394 ! 
ASLB1 013004 2384 2385 23874 ! 
ASLBIA 013230 2471 2472 24744 ! 
ASLB3 014506. 2850 2851 28534 ! 
ASLB4 =: 013762 2661 2662 2663 26654 ! 
ASLB6 015216 3006 3007 3008 30104 ! 
ASLB7 = =016270 3271 3272 32744 ! 
ASLO 011634 2062 2063 2064 2065 20674 ! 
ASL? 012602 2312 2313 2314 23164 ! 
ASL3 014224 2752 2753 27554 ( 
ASL4 013544 2585 2586 2587 25894 ( 
ASL6 015000 2944 2945 29474 ( 
ASL7 015660 3143 3144 31464 ( 
ASRB1 013100 2420 24228 ( 
ASRB1A 013114 2426 2427 24294 ( 
AS 013726 2646 2647 26494 ( 
ASRB2A 013744 2654 2655 26574 ( 
ASRBS 014446 2831 2832 28344 ( 
ASRB6 = =015334 3046 3047 30494 ( 
ASRB7 = =016306 3278 3279 32814 ( 

( 


ASRO 017662 2076 2077 2078 20804 








—_———— 
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MM ANMMWMNOM NYY NMNM rN YN eH 


C 
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ASR1 012470 2269 «= 2270S 2271S 2273 ( 
ASR2 0013466 2559 2560 «= 562m C 
ASRS. 014210 2746 ©2748 F 
ASR6 014662 2906 2907 2909" F 
ASR? 015714 31573158 = 3160# F 
A.DSC 041206 7022 7033 7034 7040 7061 7100 7106 7116 7137 7138 73198 cE 
Aj 037762 70334 ©7364 
A2 037764 72034# 7364 
A3 70408 7364 
nd 0050 70614 7364 
AS 040170 71008 7364 
a6 040204 7106# 7364 
A? 040364 71378 = 7364 
Ag 0 71384 7364 

041214 7126* 7322# 7391 
BICB1 017440 3601 3602 36044 
BICBIA 017462 3612 36154 = 36743675 
BICO 016606 3378 «6=—«- 3379S «3380 = 33824 
BIC) 017130 3491 3492-34944 
BIC2 017776 713 S714 5718 Re 
BIC3 020512 3883 3885¢ 
BIC? 022452 42814 4283 
BINB_ 020230 3778 3780 3783 «= 3785-3788 «= «3790:~=— «3793S 37968 
BINB7 022220 4216 © 4224 
BIN] 017620 3644 3647 3650 3653 3656 3659 3662 36674 
BISB1 017426 3596 = - 35984 
BISO 6564 3369 © 3370S 3372 
BISOA 01664 3396 ©. 33984 
BIS] 017116 3485 3486 34884 
BIS2 017734 3697 3699" 
BISCA 020036 3731 37 34H 
BIS7 022412 42714 ©4273 
BITB1 017416 3590 3591 «35934 
BITB2 020314 3818 3819 38214 
BITB3 020676 3938 © 39414 
BITB6 021312 40314 
BITT1 017044 3462 3463 3465 
BITT2 020022 3724 3725 837274 
BITO = 000001 1798 1684 1485 1492 1734 1762 1766 8364 84602 8643 10223 10455 
BITOO = 000001 169% 179 
BITO1 = 000002 1684 178 
BITO2 = 167" =—-177 
BITO3 = 000010 1664 176 
BITO4 = 000020 1654 «175 
BITOS = 000040 1644 17% 
BITO6 = 000100 1634 = 173 
BITO7 = 000200 162 172 1257 
BITOB = 000400 1614 = 171 
BITO9 = 001000 160 170 8972 9039 
BIT1 = 000002 1784 
BIT10 = 002000 159# 9022 
BIT11 = 004000 1584 514 1487 1488 1490 8872 8979 
BIT12 = 010000 157@ =513, 1683. —S«1718-~——« 8277 
BIT13 = 020000 156# 8257 9029 
BIT14 = 040000 155@ 512 1163 1479 1480 14682 8530 8602 8625 8640 8651 8670 8701 

8719 8734 8746 8765 8865 9962 





nn 


Tr ws 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
79 08:55 


CEQKCD.P11 
BIT15 = 100000 
BIT2 = 000004 
BITS = 000010 
BITS = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 0004 
BIT9 = 001000 
BPTVEC= 000014 
BUF F 041706 
BUFFAD 041264 
B.DSC 041212 
B1 040010 
B2 0062 
B3 040376 
B4 0400 
B5 040444 
B6 040474 
B7 0432 
C 041220 
CACHVE= 000114 
CALLHA= 010 
CBIT 026122 
cco 011312 
cc 011326 
CC2 011342 
cc3 011354 
CC4 011370 
CHAR 041254 
CHAR1 037054 
CHAR2 037242 
CHARS 037254 
CHARS 037324 
CHARS 037620 
CHKDAT 062534 
CHKSP 025706 
CISER 0642 
CISER1 
CISER2 0676 
CISER3S 040714 
CISOP_ 005712 
CISOPT= 01 

ISP 001505 
CISTRP 005730 
CISTST= 
CLRIBI 063162 
CLRO 011430 
CMPB1 017372 
CMPB2 20 
CMPB3 020710 
CMPC = 076044 


04=-0CT- 


7391 
1793* 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


7601 


1942 
19554 
19634 


19784 
6914 


103774 
6901 


1542 
1550* 


7547 
1992 


6934 


A 
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1498 1499 
8721 9913 
6087 7966 
7504 7893 
8705 8739 
1702 1724 
8600 8611 
4816*  4817% 
7322 7324 
7128 7213 
7152 7157 


7602* 7603* 


1943 1944 
6995 73364 
6917 6936 
1544* 1546 
1559* 1590 


7987 104984 
19944 


6996 


7610* 


1945 


6955 


15554 
4839 


7611* 


19474 


6976 


6784 


1552 


7984* 


6998 


6796 


7885 


8262 


8224 
8732 


7340 


7985* 


7189 


ee ey 


8374 8381 
8414 8450 
8291 8358 
8763 


74044 


10378* 103%4s 


72228 


SEQ 0244 
8493 


8535 


8393 


10609* 





DMmDMDDDDDDDADDTADDDDADADADADATAABADAADADAn OO 


mnmmnDnDn 7wDDm 


oe oe. eo Bo Be a Be a BP 6 Be oo Bo Ee a I a | 
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CMPCI = 076144 577# 6834 6848 6870 6950 6971 
CMPN 076052 5494 7079 
CMPNI = 076152 5814 7032 7109 
CMPNUM 026156 50554 
CMPP = 076072 5644 


040362 
CMPPI = 076172 589" 7136 7185 
CMPO 016466 3332 3333 3334 33364 


MPOA 
CMP1 017026 3453 3454345534578 
CMPIA 017146 3498 3499 3500 3502" 
CMP? 021520 4085 4086 40884 
000003 
! 


CNVADR 062432 7664 9091 9171 103414 
013062 4 


COMO 011474 2009 2010 28 2012 20144 







1506* 
5974* 








10733 =10738* 


11165 
7086 
7194 






7147 7148 
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C5 040442 71618 = 737 
C6 040476 176# 7370 
C7 040430 7156# 7370 
D 041234 7330# ©7391 
DBINB7 022214 G221H 42554 4254" 4258 4259" 4260 4264x4271 42724 4279" 42814282" 
OBIN7 021420 4O60H 4075* 4079% 4084 4090" 4098* 4105* 4109 4113 
DDATA 020734 S95GH 3960+ 3962+ 3966 3970 3971 39744 3975 3980" 3987* 3994 3995 3998 
DDATAB 021376 4027* 4028" 4033* 4036 4040" 4047 4065 4050# 
DECB1 013032 2397 2398 = 2400# 
DECBIA 013162 2449 2450 24524 
DECB2 013774 2668 26718 
DECBS 014564 2879 28814 
DECB6A 015366 3058 3059 30624 
DECB7 016254 3265 3266 = 32684 
DECDAT 037634 6997  7002# 
DECO 011554 2035 2036.-=— 2037S «2038 = 20404 
DEC? 02406 2242 © 2244H 
DECIA 012656 2340 © 2342 
DEC2 013522 2576 2577 ~—.2579# 
5 014242 2759 = 2760S «761 27634 
DEC6 015014 2950 2951 29534 
DEC? 015676 3150 315131534 
DEVICE 001576 7528 
DEVIND 001600 7534 7696x 7697* 7698 7702 7704 7705* 7706 
DF1 065571 1009 1014 1019 108994 
DF10 066466 1044 109884 
DF11 066572 1049 1079 1085 110034 
DF12 066654 1054 1059 110134 
DF14 = 067014 1064 110344 
DF 16 067061 1074 110424 
DF4 066121 1024 1034 109424 
DFS =: 066232 1029  10957# 
DH1 065532 1007 108934 
DH10 066417 1042 109814 
DH11 066551 1047 1077-11000 
DH12 1052 110114 
DH13 066720 1057 110214 
DH14 066762 1062 110284 
DH16 067034 1072 110384 
DH2 065636 1012 109084 
DH3 =: 065731 1017 10920# 
DH4 =» 066043 1022 10934# 
DHS §=—s«066 165 1027 10950# 
320 1032. 1083 »—- 10969" 
DISPLA= 177570 B64 = 1803" 1921" 1984" 2101" 22248 2348x2499" 26028 2720 «= 2805* 2887" «= 29728 
3096" 32178 «= 3307" «= -3G31* «3551x3673 3761" «3832 «3896x3953 4015* «= 4058e 41228 
162% 4215" 4344s 4436" 541% = 4608" = 4664" 4714" «= 4834" 49228 94973" 5040" «5090 
5263* 5353 5404" 5449" 5516e  5634% 5686" 5770* 5794 5838" S891» 5914"  5959« 
5980*  6003* 6097* 61378 6197* 6257* 6326* 6514* 6767* 6805* 7419* 7490* 9018s 
DIVP = 076075 5678 
DIVPI = 076175 5928 ©7168 
DIVO 030720 56874 
DI 031174 57718 5784 
DOCIS 036650 6797 6799 





DDBDDDAADADAADAADADMAAABMBAAAAMBAAAAMwMB MDA AAI AIM MAWDAAIAwDAwMAAMAMVAAIADwAIAIA UMA DPD WAM OO 


DEQKC =D PLP 31/ 70=7QMP 


CEQKCD PT? 
DONE 040576 
DONE7 036636 
DSTLIA 061200 
DST.1D 041776 
5ST 037026 
DSTIO }§=—«.: 037350 
DST11 037356 
DSTI2 7360 
DST1$ = 037372 
DST14 037420 
DST15 037430 
DSTI6 = 637432 
DST17 =: 037444 
DST18 037534 
DST19 037606 
DST2 037082 
DST20 037616 
DST3 37 
DSTS 037144 
DSTS 037154 
DST6 037206 
DST7 037240 
DST8 037252 
DST9 037322 
DT1 065576 
DT10 066472 
DT11 066574 
DT12 066656 
DT14 067002 
DT16 067066 
DT2 065664 
DT3 066000 
DTS 066236 
DT6 066340 
DUMMY 042640 
D.DSC 041232 
D1 2 
D10 040506 
D2 040020 
D3 040032 
D4 0042 
D5 

D6 040074 
D7 0466 
D8 040452 
D9 040500 
E 041224 
ECHO 063402 
EISOPT= 04 
EMTVEC 

—MT1 024050 
EMT1B 024130 
EMT1C 024134 
EMT1D 024146 


CPL EMERCISER 
04-00 7=79 08:55 


MACY?! 


B 4 
SOA T0S2) Oe-OLT=79 09:00 PAGE 226 
CROSS REFERENCE "ABLE == USER SYMBOLS 


72158 P2768 7223 73i6a = 7390 

6850 6868 6872 688. 6892 689” 
6980 6968 697% £990 4996 72148 
1084 110054 

110154 

109284 

7048 7053 7056 7068 7071 7118 
7391 

1347* 1348* 4615*% 4617" 4654* 4655 
4627 4630 4631 4635 4636 4639 
46534 


7145 


4640 


poe ee a, ee re ce ae en te oe eee eee ee any 


SEG O67 | 
| 
6926 A927 69%, 694 
7162 7165 7171 7177 
4641 46464 
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CEQKCD.P11 04-0 T=79 08:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0248 

EM) 065505 1006 10889" | 

EM10 066 346 1041 10974 

EM11 066504 1046 109934 

EM12 066602 1051 11006# 

EM13 066662 1056 110164 

EM14 066735 1061 1077 =—-11024# 

EMIS 067020 1066 11036 

EM17 067100 1076 110478 

E 065610 1011 109044 

EM20 067144 1082 110534 

EMS 065674 1016 109154 

EM, 066014 1021 10930 

EMS = 066126 1026 10944 

EM 066250 1031 10962 

END 046162 79828 

ENDCIS 042544 6752-74134 

ENDCP 032312 5916 — 5989# 

ENDKB 005560 1520 15254 

ENDM 046122 753779654 

ENDMEM 046120 7600 79644 

ENDTAG 067174 1251 11057# 

1 6162 79834 

ENTER2 044240 7655 76884 7740 7882 

ERPRT 064270 1453-1776 = «4337, 4824S s«5971 = 6084.~—s 7609-~=Ss7983~=—«:10729# 

ERRBA 001732 Ope {BB1Qt  BBI1= BBI2* 9285» 92BB* 9289 9290" 9502+ 9303" 9304" 9305" 9306s 

ERRRTN 007342 7044 

ERRVEC= 000004 1824 1161" 1162* 13708 1371" 1453* 16238 1648 1651* 16578 1677 17128 1776 
4295* 4296" 4297 337% 4737% 4 73B* «4 781* «= 4824% = 4825" 4826" = 4827* ~=—5962* =—59718 
6044* 6045" 6084"  6085* 6086" 6087* 7599 7600* 7609* 7983 8959 8960" 8962s 
8965* 10165 10166 10170* 10175* 10187" 10192* 10202* 10214* 10215« 

ERR4 037452 69554 

EXIT 046000 7844 7933 79398 

EXITFL 001564 7478 

EXITRE 044152 7628 7630 7661 76674 7941 

EXPEXT 060674 6681 6692 6737 9924 99468 

EXTINS 026344 5 106M 

E.DSC 041222 7045 7049 7058 #7077 «7087 # +7090 7101 «#7103 «7107 «#97110 7149 7161 7163 
7166 «©7170 = 7186~— 7195. 7198 = 73254 

E1 040012 7045# 7377 

E10 040402 7145# 7377 

E11 040420 71524 7381 

E12 040422 7153# ©7381 

E13 040464 7170# ©7381 

E14 040454 7166# 7381 

E15 040520 71864 ©7381 

E16 040536 7195# 7381 

E17 040544 71984 7381 

E18 040134 70 7381 

E2 040022 7049# 7377 

E3 04 7058# 7377 

£4 040106 7077" ©7377 

E5 040126 7087" 7377 

E6 040172 71018 ©7377 

E7 040176 7103# 7377 

FB 040206 7107" ©7377 




























— 3 


an NHN TH HH HHH 
TOO NAWUEWIO 


CEQKCD.P11 


016240 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
04-0CT=79 08:55 


1812* 1930» 
4171* 4242 
5099* 5205 
025 7117 
102694 
392 6395 
99024 
6655 66894 
6365 6374 
6607 6615 
6526* 6578 
6566* 6629* 
99034 
6433 6458 
9827 102684 
6965 
68644 
69864 
68884 
1379 6343 
1809* 1927* 
1251* 7641 
7057 7063 
7384 
7384 
7388 
7388 
7388 
7388 
7384 
7384 
7384 
7384 
7384 
7384 
7384 
7384 
8200 8419 
8453 8538 
1141 1145 
1604 1610 
10261 10262 
10400 10616 
7126 712 
9362 9403 
2367 23694 
2704 2705 
28394 
30034 
3053 30554 


32628 


D 4 
MACY11 30A(1052) 04=0CT=79 09:00 PAGE 228 
CROSS REFERENCE TABLE == USER SYMBOLS 


2974 3105* 
4296 4422 
5525* 849 
7119 7421* 


6425 6522 
6384 6587 
6623 6656 
6608* 6639 
6660* 11045 
6471 6493 
3102* 3754 
7067 7072 
8540 8794 
8574 2788 
1187 1202 


1690 1696 
10263 10264 
73044 


27074 


3219 3676 3677 
4437 4445 4461 
5868 6012*  6336* 
7638 7646* 10360 


6562 6565 6595 
6437 6445 6453 
66784 
6657* 11045 
6580 6603 6628 
4168* 4720* 5096* 
7078 7104 7111 
10290 104304 
8823 104894 
1206 1211 1266 
1762 7738 7747 
10265 10266 10267 


6641 


5522* 
7153 


1270 
8043 
10268 


6525 


6663 


6009* 
7169 


1274 
8050 
10269 


4134 
4723* 
6817 


6535 


67024 


6333* 
7181 


6544 


6773* 
7187 


1291 
10258 








6554 


7641 
73278 


1572 
10259 


SEQ 0249 




















CEQKCD.P11 
INCO 011574 


INCS 013404 
INC6 014756 
INC7 016044 
INSTBL 003310 

044160 
IOTTST 023546 
IOTVEC= 000020 


KBI11E 001502 
KB11EM oy 503 


KIPAR4= 172350 
KIPARS= 172352 


DEQKC=D PDP 11/70-74MP CPU A perros 


04-0CT=79 08: 


2044 2045 2046 
2284 2285 2286 


2778 27808 
2529 2530 25328 
2935 2936 2937 
3202 32044 


1168 1175 11954 
7612 7677# 7885 


1874 1345* 1346* 
751# 7654* 7687* 
4353 4354 4355 


4373 43778 
4389 43934 
4407 44118 
44194 

44304 

44378 

4447 44618 
4473 44864 
4495 45094 
4513 45234 


7234 = 1468* 1516* 
7214 1109 1120 


764 1218 1312 
3484 6181 7560* 
349% 7561* 7944* 
3504 7562* 7945* 
351@ 7563* 7946* 

# 6200* 7564* 


34 = 7565*  7566* 
3544 10618 10621* 
3554 7567* 7581 
1494 


10633* 
7595 10196 * 


iba e Ht Wehtia 
MACY11 30A(1052) 04-O0CT=79 09:00 PAGE 229 | 


CROSS REFERENCE TABLE == USER SYMBOLS 


SEQ 0250 
2047 20494 
22884 


29394 


$256 4555* 4610* 46171% 4656* 4657* 5933* 5952s 
i & 
43574 


1469* = =1473s 1512 1514" 1517 1877 1585 4835 4935 





4815 7954 7988 
7943* 7951 10145 10179 10350 10660 10689 








7565 7838* 7923 7925* 7927 7937* 7943 7944 7945 7946 
7838 7923 7927 - 










1496* 6173 75518 
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KIPDR4= 172310 3308 8 6201* 7555s 

KIPDRS= 172312 3314 7556 

KIPDR6= 172314 3324 7557* 10622* 

KIPDR7= 172316 333¢ = 7558 

KM = 000000 5164 

KTABRT 064122 1794 5951 107004 

KTABT 033222 61984 

KTEX 03346 6199 62504 

KTOPT = 5034 

KTPAR 033042 61384 

KTPDR 032716 60994 

LDKT 063752 8783 8862 8925 9411 10559 106554 

LDRP3 047174 8133 8139% 8388 

LDRP4 050116 8269 82764 8607 8633 8646 8661 8676 
LDRS 050422 8324 83334 8706 8727 §740 8756 8771 
LD2PNT 001632 7674 1538 1541 

LD2PT1 001634 7684 

LD3PNT 001636 7694 

LF = 000012 904 9397 9403 

LKOPT = 001000 5084 1383 7446 7492 

LKS = 177546 4724 1381 7456* 7458 7496* 8937* 

LKSRV 054300 7477 7494 89244 

LKVEC = 000100 4734 7449 7450* 7477* 7494* 7495* 
LOADRS= 177740 2004 10399 10614 

LOCATE 037460 6954 6958. 

LOCC = 076040 5414 

LOCCHR 037470 69614  6963* . 

LOCCI = 076140 57 6959 

LOMASK 041164 7129 7131 7133 73064 

LONG.1 041242 7088 7092 7094 7196 7200 7202 7225 73334 8=©—7338 7394 
LONG.2 041246 7091 7092 7094 7199 7200 7202 7226 73344 7339 7394 
LONG] 040130 70884 7394 

LONGIP 041260 73384 

LONG2 040540 71964 7394 

LONG2P 041262 73394 

LONGS 040546 7199# 7394 

LONG4 040136 70914 7394 

LOOP 010000 1768 17728 7957 007 8065 

LOOP1 007346 1746 175¢ 1754 1756 17684 

LSTMEM 001544 739 = =61249% 1250% 7643 

LTICKS 001630 7654 7802 7819 8926* 8927 8929» 8930* 8931 8933" 9412 
L2D0 = 076020 5244 1537 

L2D1 = 076021 5314 

L2D2 = 076022 5324 








CEQKCD.P11 04-0CT-79 CROSS REFERENCE TABLE == USER SYMBOLS 


at G 4 
DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04=0CT=79 09:00 PAGE 231 
08:55 SEQ 0252 

L3D7 = 076067 79)" eh 6880 6890 6895 6911 6925 6930 6992 7060 7065 7070 7164 
MAINT = 177750 2044 1474* 1477 7997* 8009 
MAPEND 062426 10311 103214 
MAPHO = 170202 4434 6305* 
MAPHOO= 170202 3794 443 1478 ' 
MAPHO1= 170206 3814 445 : 
MAPHO2= 170212 3834 447 ; 
MAPHO3= 170216 3854 449 

= 170222 3874 451 
MAPHOS= 170226 3894 453 

= 170232 3914 455 
MAPHO7= 170236 3934 457 
MAPH1 = 170206 4454 6303" 
MAPH10= 170242 3954 
MAPH11= 170246 3978 
MAPH12= 170252 3994 
MAPH13= 170256 4014 
MAPH14= 170262 4034 
MAPH15= 170266 405Sa4 
MA4PH16= 170272 4074 
MAPH17= 170276 4094 

2? = 170212 4474 

MAPH20= 170302 4114 
MAPH21= 170306 4i3a 
MAPH22= 170312 4154 
MAPH23= 170316 4174 
MAPH24= 170320 4198 
MAPH25= 170326 4214 
MAPH26= 170332 4234 
MAPH27= 170336 4254 
MAPH3 = 170216 4494 
MAPH30= 170342 427# 
MAPH31= 170346 4298 
MAPH32= 170352 4314 
MAPH33= 170356 4334 
MAPH34= 170362 4354 
MAPH35= 170 437# 
MAPH36= 170372 4394 
MAPH37= 170376 4418 
MAPHS4 = 170222 4514 A 
MAPHS = 170226 4534 
MAPH6 = 170232 455@ 
MAPH7 = 170236 457# 
MAPLO = 170200 4424 6260 6293 6304" 10315 10464 
MAPLOO= 170200 3784 442 
MAPLO1= 170204 3804 444 
MAPLO2= 170210 3824 446 
MAPLO3= 170214 3844 448 

= 170220 3864 450 
MAPLOS= 170224 3884 452 
MAPLO6= 170230 3904 454 
MAPLO7= 170234 392 456 
MAPL1 = 170204 4444 6302* 
MAPL10= 170240 3944 


MAPL11= 170244 3964 





H 4 
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CEQKCD.P11 04-0CT=79 08:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0253 
MAPL12= 170250 3984 
MAPL13= 170254 4008 
MAPL14= 170260 4024 
MAPL15= 170264 4044 
MAPL16= 170270 4064 
MAPL17= 170274 4084 
MAPL2 = 170210 4464 
MAPL20= 170300 4104 
MAPL21= 170304 4128 
MAPL22= 170310 4144 
MAPL23= 170314 4164 _ 
MAPL24= 170320 4184 
MAPL2S5= 170324 4208 1 
MAPL26= 170330 4224 
MAPL27= 170334 4248 1 
3 = 170214 4484 1 
MAPL30= 170340 4264 1 
MAPL31= 170344 4284 1 
MAPL32= 170350 4304 1 
MAPL33= 170354 4324 1 
MAPL 34= 170360 4344 i 
MAPL35= 170364 4364 1 
MAPL 36= 170370 4384 1 
MAPL37= 170374 4404 L 
MAPL4 = 170220 4504 t 
MAPLS = 170224 4524 L 
MAPL6 = 170230 4548 L 
MAPL7 = 170234 4564 L 
MAPTBL 001716 7748 1325* 1326* 10459 10462" 10491* l 
MAPTST 033510 62604 y 
MAPTWO 033636 6259 6295 63004 L 
MARKEX 027402 5369 5373 53778 L 
MARK1 027356 5365 53674 L 
MATC = 076045 5464 6908 L 
MATCH 037270 900 69044 l 
MATCI = 076145 7 l 
MBRK 031664 58924 L 
MBTAS = 160116 493a L 
MBTBA = 160104 4884 974 l 
MBTBAE= 160174 4974 975 L 
MBTCS1= 160100 4864 972 L 
MBTCS2= 160110 4904 977 L 
MBTCS3= 160176 4984 980 
MBTDB = 160120 4944 t 
MBTDT = 160126 4 983 
MBTER = 160114 4924 979 " 
MBTERR 054140 8873 88904 L 
MBTMR1= 160124 4954 i 
MBTMR2= 160106 4894 976 L 
MBTN2 002336 9844 1428 L 
MBTN3 002340 9854 1432 l 
MBTING 002342 9864 1436 L 
MBTOPT= 002000 5S07# 1426 1452 7511 L 
MBTPSW= 000776 5004 982 L 
MBTSET 045150 7501 7503 75114 l 
MBTSRV 053766 7522 88614 u 


I 4 
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0 
CEQKCD.P11 04-00T=79 08:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0254 C 
MBTST = 160112 4918 978 L 
MBTTBL 002306 9724 1424 1444 1448* 1449* 1450 7519* 7520" 75218 75228 75258 75248 8864 U 
8869* 8901 B915* 10773 U 
MBTVEC= 000774 4994 981 U 
MBTWC = 160102 48748 973 U 
MBT1 043206 7519M U 
MED6X = 076600 595# U 
MED74C= 076601 526% 1544 U 
MEMERR= 177744 2024 10223 10226 10229* 10398 10404* 10613 10627» 10628 10634 10635* uU 
ME 054134 8880 8882 88894 U 
MEMSIZ 003656 1245 1247 12494 u 
MFPT = ? 5284 1471 6790 U 
MFPTTR 005552 1470 1522m U 
MHOLE 053636 8818 8821 88314 U 
001531 732H = 1314e 394923 5923 6104 6143 6198 7517 7598* 7629 7749 779% 7826 U 
7853 7880 7896 7939 7975* T0363 10387 10619 10655 10681 U 
MMRO = 177572 2278 231 +10703 10709 U 
MARI = 177574 2284 232 u 
MMR2 = 177576 229K 233 =: 10704 U 
MMR3 = 172516 2308 234 6258 7504 7966* 8115 8196 8414 8450 8535 8571 10307 U 
MMVEC = 000250 1954 1794% 1795% 5919% 5951* 6206 6207 6210* 6211* 6267" 6248 u 
MOVB1 017346 3565 3566 3567 3568 35714 U 
MOVC = 076030 5384 6847 6894 6970 u 
MOVCI = 076130 S704 6866 6988 u 
MOVE 037042 6838 68424 U 
MOVER 037340 6916 69204 u 
MOVRC = 076031 539" 6929 L 
= 076131 5714 6921 u 
MOVT 037410 6935 69394 u 
MOVTC = 076032 5404 L 
MOVTCI= 076132 572# 6940 6945 L 
mMovo 016416 3310 3311 33134 V 
MOVOA 016446 3325 33274 
MOV1 017216 3523 35254 ) 
MOV7 021470 40784 X 
MPI 031754 5915# \ 
MRGTAB 064400 - ~8008 8009 107574 y 
MRKTST 027320 53544 , x 
MSGINX 064440 7732 9191 9219 9481 107754 x 
MSG1 064464 107854 x 
MSG10 064613 10779 108054 ) 
MSG11 064621 10780 108074 , 
MSG12 064627 92360 108094 x 
MSG13. 064742 9237 = 10822# x 
MSG14 065052 10834 { 
MSG15 065110 10783 10839# | 
MSG16 065131 9255 108424 
MSG17 065240 9261 108544 | 
MSG2 064476 107874 
MSG20 065314 8014 108624 
MSG21 065414 10777 10778 10781 10782 108734 
MSG22 065434 9276 108764 
MSG23 065444 9281 108784 
MSG24 065452 10784 108804 


MSG3 064510 9079 =10789m# 
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070517 


DEQKC=D PDP 11/70-74MP CPU EXERCISER 
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71 
34 


ee ee eee 
C—NoNMONMONMN PON & 
g Ww 
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111978 


7678* 


9422 


8881 
8879 


20584 


29174 


3109 4175 4727 5103 5529 6016 
7564 7574 7588 7679 7937 7942* 


10551* 10569 


7791 7800* 
7752 7790 7799= 7832 


7751 7789 7798* 7828 
7335a . 


6340 
7971* 


6780 
7974* 


7958 





$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
{ 
4 
$ 
1 
$ 
1 
$ 
$ 
$ 
$ 
$ 
$ 
b 
$ 
$ 
$ 
1 
q 
$ 
4 
4 
5] 
$ 
b] 
4 
b| 
$ 
{ 
4 
1 
| 
4 
1 
4 
{ 
1 
1 
1 
1 
1 
1 
1 








DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.P11 55 


Wout 


04-OCT-79 08: 

18 7204 
024514 47314 
040230 7112 
040374 7139 
033166 6138 
001524 729 

10309* 
001526 7304 
10356* 
033150 6099 

360: 106284 

2324 813 
177772 844 
000240 1944 
031436 58394 

5184 

172542 4704 

172540 4694 

104 4714 

003574 12294 

000000 1164 

000040 117# 

000100 1184 

000140 1194 

000200 1204 

000240 1214 

000300 1224 

000340 1234 
4696 

5847 

177776 814 

010000 5134 

177776 824 

4699* 

5076* 

5547* 

5973* 

7546* 

8742 

025464 4923 
364 8006 

030000 5194 

24 1884 
001532 73 
104412 10057 
104416 1208 
104414 10097 

004 5144 
064414 9242 
011152 1818 
015436 1936 
021744 3111 
024376 4177 
026226 4729 
030054 5105 
032312 5531 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER S¥MB 


1748 


7159 


103034 
5862 
5846* 


4843 


8839 
10357* 
8840 


5863* 
5848* 


1316 


8 
10477* 


5465 
9991« 
1244 


5465 
107654 


K 4 
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6343 


8875* 
8876* 


5849* 


7972 


8406 
10498 


5481 
9992s 
1751 


5486 


6787 


8877* 
8878* 


5853* 


5492 


1792 
5416 
10285 


7 
10509* 


5486 
10000* 
6300 


5498 


OLS 

7423 7446 
8879 8897 
8881 8898 
5881*  5882* 
5498 7546 
1796 4550 
5422 5442 
10434 

2183 2197* 
4825 4925 
5481* 5486 
5747 5751 
6085 6211 
8487 8527 
10658 10659* 
5492 5498 
10015* 10016* 
7741 8010 


7492 


9094* 
9095* 


10447 


7500 


9097 
9185* 


7511 


9172 


10310* 


9184* 
10317* 


SEQ 0256 


9292 
10320* 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
1 
1 
{ 
q 
$ 
$ 
$ 
$ 
$ 
$ 
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4152 
79204 


8 
8544" 





5506 








107164 


8935 


8153 
9456 


1470* 


8478 
9277 


8470 


8490* 












AHAAAH MMMM OO 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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RKNEWL 002026 8274 8539 8550 : 
RKOLD 001776 810" 8199 8202 8205* 8211 8505 8508 
RKPSw 002200 921" 8213« 
RKREAD 052014 8473-85554 
RKRPT 051300 8154 84614 
RKSRV 051330 8212 84684 
RKTRY 002133 8894 8195* 8480  8486* 8503" 8519 8526* 8534" 8559  8567* 
RKUNIT 002054 8434 8191 
RKVEC 002176 920# 8212s . 
RKWC 002170 917# 8210* 8507* 8549* 
RKWRCK 051564 8471 85134 
RKWTRY 047542 82074 8466 8488 
RK 051510 8464 8479 85034 $ 
RK10 001616 7604 8201* 8204* 8215  8504* 8505" 8509 8546* 8547s 8551 5 
RK11 001620 761# =8155* 8173 8492. —s«B517 5 
RK2 051532 85064 8528 $ 
RK3. 051762 8467 85484 8569 & 
RNTBIN 001604 755# 7689* 7782* 7783 7796 8078 8155 8228 8295 & 
ROLB1 012760 2372 2373S 2375 $ 
ROLB2 013712 2638 2639 «= 2640 =. 26424 t 
ROLBS 014532 2862 2863 28654 $ 
ROLB6 015320 3040 3041 30434 & 
ROLB6A 015414 3070 3071 30734 $ 
ROLB7? 016340 3291 3292 329%# $ 
ROLO 011646 2070 2071 20734 $ 
ROL1 012442 2256 ©. 2257 22604 $ 
ROL1A 012454 2263 2264 22 $ 
ROL3 014324 2790 2791 27938 . 
ROL4 013502 2566 © 2567S 569 
ROL6 014632 2894 2895 2896 28984 
ROL? 016062 3208 3209 32114 
1 013046 2404 2405 24078 

RORBIA 013136 2437 ©2438 = 2440 

013674 2630 © 2631S 2632 26 34M 
RORBS 014474 2843 2844 2845 28478 
RORB6 015252 3021 3022 3024# 
RORB? 016224 3253 3254 32568 
RORO 011532 2026 2027 2028 2029 2031# 
ROR1 012372 2234 2235 22374 
ROR1A 04 2276 2277 2278 ~=—«-2280# 

013370 2522 2523 2525# 
RORS 014176 2739 ©2740 «= 3742 
ROR6 014722 2921 2922 2923 2925# 
ROR? 015734 3165 3166 «31684 
RPCC 002232 9364 
RP3BA 002150 907# 8142" 8431s 
RP3CS 002144 905#@ 1661* 1662 8132* 8137" 8360 8364" 8365 8379 8389* 8395 8402+ 8403 

8432" 8438 8443" 8444 $280 

RP3DA 002152 9084 8113" 8139* 8428s 
RP3DC 002154 909# 8140" 8429s 
RP3DRV 046610 853 80724 
RP3DS 002140 9034 1668 8130 10765 
RP3ER 002142 9044 8409 
RP3ERR 050612 8363 83714 8400 8441 


RP3FUN 002120 8764 8136* 8345" 8346 8351* 8352 8401* 8442* 
002066 0 
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RP3HDA 002102 8644 8139 8428 

RP3HDC 002104 B65 8112* 8140 8429 

RP3HST 001736 7844 1328 7760 7765 7811 7885* 7899* 7902 7904 7931 8073* 8074 8358 
B371= 8378* 8381* 8393 8436 8455s 

RP3HWC 001756 797" = «©7777* 8141 8430 

RP3LOO 050640 8359 83784 8394 8437 

RP3NWH 002024 8264 791% = 8421 B423* 8426 

RP3NWL 002022 825 7790x 8418 8431 

RP3OLD 001772 8084 7789 7792 8118 8121 Bi24x 8142 8386 

RP3PSW 002160 911# 8135s 

RP3REA 051166 8355 84 36H 

RP3RPT 050462 8077 83444 

RP3SRV 050512 8134 83514 

RP3TRY 002132 BB8H 8114" 8362 8367" 8384" 8399 8405" B413* 8440 8446 

RP3UNI 002052 8424 7785* 8125 8128 8132 8387 8427 

RP3VEC 002156 910# 8134s 

RP3WC 146 9 8141* 8430 

RP3WCK 050730 8353 83934 

RP3WIR 047126 81304 8131 8349 8369 

RP31 050664 7 8361 83848 

RP310 001612 7584 8120 8123* 8127* 8137 8385* 8386* 8387 8389 8425" 8426" 8427" 8432 

RP311 001614 7594 8078 8093 8373 8397 

RP32 050714 83884 8407 

RP33. 051126 8350 84284 8448 

RP4BA 002206 926H 8282x  8663* 

RP4BAE 002210 927# 8281"  8662* 

RP4CS1 002202 924H 1652 1682* 8273 8613" 8634"  8664* 10769 

RP4CS2 002214 929 1681* 1683 1704% 7895*  8276* 8606*  8645* 8651  8675* 

RP4CS3 002216 930# 

RP4DA 002212 9284 8279s 

RP4DC 002224 9334 8278s 

RP4DRV 047622 857 B222# 

RP4DS 002220 931 1685 8602 8614 8625 8631 8640 8659 8670 

RPGERR 052322 8605 86174 8643 8673 

RP4ER1 00222 932" 

RP4ER2 002226 9344 

RP4ER3 0022 935# 

RPGFUN 002126 879% 8272" 8521* 8589* 8590 8594" 8595 8644" 8674+ 

RP4HAN 002076 8574 

RPGHDA 002112 8684 8266" 8279 

RPGHDC 002114 8694 8265x 8278 

RPGHST 001746 7884 822%* 8224 8229 8600 8611 8617"  8624* 8627* 8638 8668 8681 

RP4HWC 001766 8014 8280 

RP4LOO 052350 8601 8624" 8639 8669 

RP4NWH 002044 834" 8662 

RPGNWL 002042 8334 8663 

RP4OF 002234 9374 82778 

RP4OLD 002072 8164 8281 8282 

RP4PSW 002240 939" 8271s 

RPGREA 052574 8597 86684 

RPGRPT 052156 8227 85884 

RP4SRV 052202 8270 85944 

RP4TRY 002135 B91# 8267* 8604 B608* 8630" 8642 8647" 8658* 8672 8677* 

RP4UNI 002062 846H 8276 

RP4VEC 002236 9384 82708 
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RPGWCK 524626 596 «86 38e 
RPGwTR 05 8269e 593 8610 
RPG) 052376 859) 8603 86304 ay 
RP411 01622 7o2# = B22B* 8245 RETF BES 
RP4? 052404 B63ia 8632 8649 | 
RPGS 052536 8592 8659" 8660 8479 | 
RSBA 0022466 9444 8337" 8758 
RSBAE 002250 ~ 945@ 8336e 8757s 
RSCS1 = 002242 942@ 17178 8330" 8728 8759 10770 
RSCS2. 002254 9474 17168 1778 1726* 7893* 833% B70S* B739" 8746 8770« 
RSCS3. 002256 9484 
RSDA 2252 8334 
RSORV 050172 858 82898 
RSDS 002260 9494 1720 8328 8701 8719 8725 8734 8754 8765 
RSER 002262 9504 
RSERR 053006 8704 87114 8737 8768 
RSFUN 002130 8804 8327" 8688" 8689 8693" 8694 8738* 8769» 
RSHANA 002100 8584 
RSHDA 002116 8708 8321% 8334 
RSHSTA 001750 7894 8290* 8291 8699 8711" 8778* 8721" 8732 8763 8776 
RSHWC = 001770 802" 8335 
RSLOOP 053034 8700 87184 873% 8764 
RSNEWH 002050 8364 8757 
RSNEWL 2046 8354 8758 
RSOLD 002016 8184 8336 8337 
RSPSW 002266 9524 8326* 
RSREAD 053260 8696 87624 
RSRPT 666 8294 86874 
RSSRV 052712 8325 86934 
RSTRY 002136 8924 8322 8703 8707* 8724* 8736 8741* 8753* 8767 8772s 
RSUNIT 002064 8474 8333 
RSVEC 002264 9514 8325« 
RSwWC 002244 9434 8335« 
RSWCK 053112 8695 87324 
RSWTIRY 050362 83244 8692 8709 
RS11 001624 7634 8295* 8310 8713 8748 
RS41 0 86 8702 87244 
RS42 053070 87254 8726 8743 
RS43 053222 869 87544 8755 8774 
RTI1 046374 8011 80164 
RTT1 027422 54054 
RTTIEX 027624 54434 
RTT2A 027646 5450 54524 
RTT2EX 030046 5408 5461 5476 5478 5487 5489 5499 55024 
RT1 063744 10609 106474 
RUNTBL 001662 772 7784* 7860 8094 8097* 8174 8177* 8246 8249% 8312 
RUNTRA 001700 7734 #87915 8111* 8188* 8264* 8318* 8374* 8493* 8620* 8714« 
SAVPSW 027644 5405* 5406 $412 5437 54514 5452 $502 
SAVREG= 104420 1467 1534 7 8782 8861 8924 9076 9410 9655 9749 


8072 8149 8222 8289 
9824 102664 bs te 10341 10436 10557 








26774 
29964 
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016152 


076142 
020732 


Pe isce 


= 1722146 


6178 
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7583* 


32354 


22958 
23034 


4253 4260 4264 4268* 4271* 
4084 4090 4097* 4098 4105 


3963* 3964* 3969% 3970* 3971 
4029 4033 4036 4040 4041 


6878 6904 6920 6939 6958 
6879* 6883 6886* 73314 


73054 
7588* 7589 7591 7593 


6979 


4278* 4281* 
4113 

3980 3986* 
72124 


4284 


3987 


SEQ 0261 


3993* 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 


CEQKCD.P11 
SIPDR7= 172216 
SIXTAB 041152 
SIZE 272 
SIZEHI= 177762 
SIZELO= 177760 
SKIP 037550 
SKPC = 076041 
SKPCHR 037560 
SKPCI = 076141 
SOBPBL 060672 
SOBO =: 027104 
S0B1 027112 
SoB10 6027 
s0B2. 027140 
S0B3 027152 
S0B4 027204 
SOB5 027206 
SOBSA 027226 
SOB6 7252 
SOB? 027260 
SOB8 027262 
SoB9 027076 
SPAN 037170 
SPANC = 076043 
SPANCI= 076143 
SPAREO 001742 
SPARE? 001744 
SPCHK 025736 
SPLTST 031260 
SRC.1A 041174 
SRC.1D 041172 
SRC1_ 037024 
SRC10 037276 
SRC11 037320 
SRC12 037346 
SRC13. 037370 
SRCI4 037416 
SRC1S5 = 037442 
SRC16 037466 
SRC17 = 037532 
SRC18 037556 
SRCIS = 037 

C2 037050 
SRC20 037614 
SRC3 037062 
SRC4 037114 
SRCS 037142 
SRC6 = 037152 
SRC7 037204 
SRCB 037236 
SRC9 037250 
SRO. = 177572 
SRI =: 177574 


04-OCT-79 08:55 


7587* 


1285 
5498 
9909 9921 
5281 5282 
5296 5297 


6909*  6966* 


6849 6859 

6931 6941 

6249" 7596s 
6255 
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9925* 9927% 


5284 5285 5286 5287 
5300 5303 5304 53074 


6987* 7213* 7222 73144 
6864* 6867 6871 6881 
6951 6960 6965* 6972 


7965* 10176 101918 10199 


52904 


7390 
6888* 
6981 


6891 
6986* 


6896 
6989 


6906 
6993 


SEQ 0262 


6910* 
7212* 
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SR2 = 177576 2334 ©6229 

SR3_ = 172518 234 7597* 10188* 10293 

STACK = 0012 75a 26 7? 78 «1344 

START 003542 608 1190 1218% 10020 10644 

START! 002544 610 10864 1087 

START2 002554 611 11054 = 1135 

START3 003330 613 -1198# = 1214 

STIKLMT= 177774 83" 6020 

STMM = 043250 7505 7512—'s7514—Sss7516— 7518 = 7531H = 7960 

SUBF LG 32 6702" 6731 6738* 67408 

= 076051 5484 7064 

SUBNI = 076151 580" 7055 

SUBP = 076071 5638 

SUBPAS 001560 745# 1331* 7515 7991" 7992 7996% 8004 9115 

SUBPI = 076171 588" ©7150 = 7160 

SUBO 016434 3318 «= 3319 33214 

SUB1 017064 3471 34723474 

SUBIA 017172 3510 3511 35138 

SUBIB 017206 3517 3518 =—3520# 

SUB2. 017752 3703 37064 

SUB2A 020072 3745 3746S 37484 

SUB3. 020424 3855 3856 38584 

SUB3A 020446 3863 3864 «= 38664 

SUB6 (021112 3988 © 3990# 

SUB? 021540 4091 4092 4093 4095« 

SUPSTK= 000700 ci 1072 43386 4602 4768 = 4774 = 4809) 4823 5636 5953 60586078 (6082 
6261 

SWABO 011714 2091 2092 2093 2095 

SWAB! 013176 2456 = 2457 24598 

SWAB2 013416 2536 «= 0538 

SWAB 014052 2697 =. 26 99# 

SWAB6 015400 3065 3067# 

SWAB? 015766 3179 «31814 

SWITCH 067176 9470 110604 

SWR = 177570 85a 86 1086" 1757 74208 74918 7502 7513 7532" 7535 7627 7647 7684 
7692 7696 ~=— 7845S 7909S «8079s B157 8230 8296 = 8954 8972, 8979 (9019 s:9022 
9029 9033 9039 

SwO = 000001 151# 

SwWOO = 000001 1414 151 

SwO1 = 000002 1404 150 

SwO2 = 1398 = 149 

SwO3 = 000010 1384 = 148 

SwWO04 = 000020 137@ = 147 

SwOS = 0 130H = 146 

SwO06 = 000100 135@ 145 

SwO7 = 000200 1344 144 

SwWOB = 000400 1334 143 

SwO9 = 001000 132@ = 142 

Sw? = 2 150 

Sw10 = 002000 1314 

Sw11 = 904000 130" 

Sw12 = 010000 129# 7502 

Sw13 = 020000 128 

Sw14 = 040000 1278 8954 

Sw15 = 100000 1268 

Sw2 = 000004 149 
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Sw3 = =: 000010 1484 7513 

SW4 Ss = - 000020 1478 8079 8157 8230 8296 

SWS = =_- 000040 1464 7692 

SW6 = 000100 1454 7535 7627 

Sw? == 000200 1444 1757 

Sw8 = 00 1438 7647 7684 

SWaMSG 007342 1758 17674 

S = 001 1424 7845 

SXRA 026720 52154 $226* 

SXRB 026722 52168 $262 

SxTO 026366 5109 5110 5111 5112 51158 

SxT1 026452 51424 

SxT2 026736 52228 

SxT3 026752 52284 

SXT4 026520 5160 51624 

SxT5 026762 52334 

SKT6 026662 5197 5198 5199 5200 (52024 

SXT6A 026712 5208 52114 

SxKT7 027026 52504 

SYSSIZ 001642 hi ty ese 1674 1709* 1729» 1734* 1742* 1744* 7709 7712 7722 7729% 7770* 
4 486 

SYSTID= 177764 2154 

TBITVE= 000014 BA op aM 4698* 4928 4941* 6964% 4959% 564118 54138 5440* 564172 54422 5847+ 

dy ® a 

TEST1 012632 2326 2327 2328 23304 

TEST2 013344 2510 2511 25134 

TEST6} 015430 3076 3077 30794 

TIMEBU 056734 1332 1337* 1338* 94168 9421" 9426% 9431" 9478 9445e 94528 9453 94584 

TIMER 052140 8483 8523 856 85784 

TKBFR 001454 717 7 10563 10565 

TKBFRP 001452 717# 10560 #£10566* 

TKISR 063222 1362 =105314 

TKVEC = 0 1914 1362* 1363* 

TPISR 0634 34 1364 7481 105854 

TPVEC = 000064 1924 1364* 1365* 7448 7481* 

TRANS 040732 6944 6949 7240H- 7332 7337 

TRANS! 037424 69444 7360 

TRANS2 037436 69494 7360 

TRANS3 041256 73374 «©7360 

TRANSS4 041240 7332e@ ©7391 > 

TRAPVE= 000034 1904 1106* 1199 1263* 1349 1350* 4669* 4671* 4677* 4680* 4684* 4689* 4695 

TRAP1 024310 4668 46834 

TRAP1C 024350 4682 46954 

TRPRTIN 005716 1535 15574@ 

TRTIVEC= 000014 1854 

TSTB1 =: 013210 2462 2463 246654 

TSTB2 = §«©014030 2686 26884 

TSTBZA 014040 2691 26934 

TSTB6) = 015126 2979 2980 2981 C98 3a 

TSTO 011452 1999 2000 2001 2002 20068 

TST1 010140 18014 

TST10 013564 6 

TST11 »=.014110 27188 

TST12 14340 28034 
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TST15 =: 015462 30948 
TST16 =—016064 32154 
TST17 16366 33054 
TST2 011176 191984 
TST20 016732 34298 
TST21 17264 35494 
TST22 017622 36714 
TST23 020114 37598 
TET24 =—. 0200326 38304 
TST25 020524 38944 
TST26 =020712 39514 
TST27 =—s: 021216 40134 
TST3 011372 19828 
TST3O0 =. 021400 40504 
TST31 «= 021624 41204 
TST32. = 021770 41604 
TST33 022164 42134 
TST34 =: 022700 43428 
TST35 =. 023200 44344 
TST360=—- 023530 45394 
TST37. =: 023762 4557 46064 
TSTS4 011716 20994 
TST4O 024176 46624 
TST41 = 024422 47128 
TST42 =—0025 130 48328 
TST43 025446 49204 
TST44 025670 49714 
TST4S = 026104 50384 
TST46 =. 0026252 50884 
TS147 027044 52014 
TSTS 012326 2222 
TSTSO 3=—-: 0273002 53514 
TSTS1. = 0.27404 54024 
TST5S2 027624 54474 
TST53 301 55148 
TSTS4 =. 0300544 56324 
TSTSS)§ §=©—.030702 56844 
TSTS6 =.031156 57684 
TST57.) =: 031242 57924 
TST6 012660 23464 
TST60)} =—.031420 58364 
TST61 031646 58898 
TST62 4 8=— 0.31736 59124 
TST63 §=©032150 59574 
TST64 = 3.2246 59784 
TST65) =: 0323.36 60014 
1ST 32700 60954 
TST67 033024 6135¢@ 
TST7 013274 24974 
TST70) §=—.03 332004 6171 61954 
TST71 33462 62554 * 
TST72) =. 033712 63244 
TST73 0351146 6499 65124 
TST74 036472 67654 
TST75 036650 68034 


-TTST76 = 0042566 74178 


= 177676 
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043032 
000400 
042570 
104410 
104400 


1408 


102768 


8828« 
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23 
10061 
9121 


10064 
9163 


8848 8850 10277" 10278* 10289 


9301 10282 10774 


2999e 3905" 3015* 
a 


082 
1124 1130* 1131 
1552" 5892 





3020* 


1134 


3026* 
1138* 


9453 
10068 
9265 


10291 


3033* 
1153s 
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UDPAR7?= 177676 2788 ° 
UDPDRO= 177620 2498 6177 
UDPDRI= 177622 2508 

R2= 177624 ose 
UDPDR3= 177626 25ee 
UDPDR4= 177630 Pi J 
UDPDRS= 177632 2544 
UDPDR6= 177634 Pip) i 
UDPDR7= 177636 25 
UIPARO= 1776460 2608 $925 6182 7574* 7575 7577 7579 
UIPAR1= 177642 2614 7575% 7576* 
UIPAR2= 177644 262% 87577 ~=—7578* 
UIPAR3= 177646 2634 7579 7580* 
UIPAR4= 177650 2644 6202* 
UIPARS= 177652 2654 
UIPAR6= 177654 2668 8 5925* 
UIPAR7= 177656 2678 §=7581* ; e 
UIPDRO= 177600 2384 6174 7569* 
UIPDR1= 177602 239% = =—7570* 
UIPDR2= 177604 2404 75718 
UIPDR3= 177606 2418 7572* 
UIPDR4= 177610 2424 6203* 
UIPDRS= 177612 2438 
UIPDR6= 177614 2448 5926" 
UIPDR7= 177616 2454 7573 
UM = 140000 517#@ 6569 4748 5454 5460 5486 5809 5823 5915 6052 6061 
UNITNO 001602 7544 7776 7780 7785 
USESTK= 000600 784 
UWE 014606 28894 2893" 2900" 2905* 2912" 29208 2927 2934" 29418 2343% 2949% 2955 29618 
UWM7 015560 31144 3218 3221" 3226* 
Uw7 015564 3112 31174 
VADR 001522 7284 7663* 7850" 7935 9085 9086* 9092 9094 9096* 10342 10401* 10611* 10612* 

10701* 10702* 10717" 10718* 10730* 10731* 10902 10913 10928 10960 10973 #10991 
x 063746 10645 106484 
xORO 026420 5123 $124 5125 51284 ; 
XOR1 026506 5148 5149 5150 5151 5153 51564 
XOR24 026542 51/0# 
XOR35 027012 5239 5240 52448 
XOR6 026630 517 5178 5180 51874 
XOR6A 026634 5173* 5174* 5179 5181* 5185 51914 5196* 5207* 5209* 
XOR68 6636 5182* 5183* 51R4e 5185 5192 
XOR7 027042 52554 
xxcpe 903570 12264 1266 
xXDPC 003577 12278 1241* 1753 
$AcO 001412 707# =6351% 6354* 6361* 6363 6372 6373 6382* 6386* 6390» 
6432* 6436" 6442* 6444 6450* 6452 6457* 6470* 6484* 6491* 


6620" 6622 6627" 6640" 6654" 6661" 6678 6689 6703 6708 
$AC1 001474 70BH 6350" 6354 6357 6363* 6367 6373" 6376 6383" 6397 
6415 6423" 6427 —6430* 6439444" 6447 6452" 6454 60 
76 64B3* 6588 = 6494" 6496" 6497-6520" 6524 «= 652 65338 
6553* 6567 6578 6581" 6584" 6585  6593* 6597 6600" 6606 
6626 6630 6636 6642" 6645" 6646 6653" 6658 6664" 0660" 
6703 6707 6720 6721* : 
$AC2 001416 709# 6367* 6394 6402 64046" 6605" 6406" 6407* 6415 6427" 


6467* 6468" 6476 6537" | 6564 6572 6574* 












DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.P11 04-OCT-79 08:55 










6585 6597* 6606 
$AC3 001420 7108 6376* 6390 
6633 6635 
SAC4 001422 7114 
$AC5 001424 7124 
SBDADR 001224 45544 
SBDDAT 001230 6664 8840* 8898* 
SBELL 001332 70 9024 9047 
SBUF F 001410 7 9830* 9855 
SCHARC 056502 9377+ 9384 9395* 
SCMTAG 001200 6514 1339 1340 
$CM1 = 000012 6784 6794 6804 
$CM2 = 000024 6784 6794 680¢ 
$CM3 = 000012 6764 678 
$CM4 = 00001 6884 6894 6904 
SCORE 062002 10174 102024 
SCRLF 001337 702 1276 1612 
9298 317 9318 
$CROUT 062032 10202 102094 
9600 9634 96424 
9293 
80644 
1568 
8040 
8946 
8970 
4610 
9027* 
8789 
8056* 
8990* 
7753 
9403 
9802 
8897* 
6807 
8984 
9047 
10230 
10177«* 
9403 


MACY11 30A(1052) 


6617* 
6402 


104 38* 


10437* 


6811* 
8986* 
9087 


102018 
10068 


6627 
6404 


9036 


10077 


6633 
6454 


1354 
6834 
6834 
6934 


9032 
9454 


8976* 


17015 


8163 


5 
04-0( T= -79" 09:00 PAGE 247 
CROSS REFERENCE TABLE == USER SYMBOLS 


66355" 6636* 6637* 6638* 6646 
6463 6465 6546" 6560 6572 
1355 
6844 6854 6864 6878 6834 
6844 6854 6864 6874 0884 
6944 6954 6964 6974 6984 
9047 9077 9080 9122 9137 
9493 10077 10138 10535 10543 
8992 &994 8998 90175 9016* 
9086 
10277 
8236 8302 9875 9883 9888+ 


SEQ 0268 
6574 6624* 
9142 9146 
10553 
9047 
9911 9915 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.P11 


$LONUM 
$LPADR 


SLPERR 


SSAVPS 
SSAVRE 


001550 
001210 


001212 


062140 


057314 
664 


001516 
057702 


04-0CT=79 08:55 


100254 
99914 

100054 
90 


MACY11 30A(1052) 


CROSS REFERENCE TABLE == USER SYMBOLS 


10015 


10061 
8162 


6409 

6411 
10632 

8004* 


6810* 6826 8086 
1933" 3108* 4174« 


8 
10719 =10720* 10722* 
A303 10217* 102324 


10077 10136 )=—s: 10138 
8235 8301 98704 


6439* 6470 6488* 
6460* 6472 6492* 
10705* 10708 10719s 
8014" 10535* 10543* 


8003 


8237 
4726* 


1931* 


8066 


9906 


5 
04-0CT= -79" 09:00 PAGE 248 


8981 


10439 


6579 
6581 
10734* 
10585* 


65024 


8998 


6609* 

6630* 
10737 
10586 


eee re ae 


9887* 
6015* 


9119 


6492 
6542 


6640 
6642 


10590* 


9916 10441 
6339* 6779« 
3107* 3108 
5528 6013* 
7876* 8832 


40524 4054 
48294 49174 
562 56774 


5 
67544 6756 


6494 6520 
6552 6594 


6658* 11032 
6662* 11032 


SEQ 0269 


8974* 


4172s 

6014 

8833* 
10705 


6 
68004 


a 
DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04-O0CT=79 09:00 PAGE 249 


CEQKCD.P11 04-OCT-79 08:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0270 
SSAVR6 061214 9999* 10005 10006* 10007* 10024# 
SSCOPE 054370 1345 4555 4561 4656 5952 89534 
SSETUP= 000037 13208 1345 1347 1349 1351 1353 1354 1355 1357 1568 8031 9033 
$SIZE 061556 101614 
SSIZEX 062036 10200 102104 
= 177777 1320 
$SVLAD 054554 8963 89884 
SSVPC = 000224 6354 640 
$SWR = 167377 a 32 47 48 49 50 51 52 53 54 698 99 7 
1354 1355 1357 1358 1804 1922 1985 2102 2225 2349 2500 2603 2721 
8 2888 2973 3C97 3218 3308 3432 3552 3674 3762 3833 3897 3954 
4016 4059 4123 4163 4216 4345 4437 4542 4609 4665 4715 4835 4923 
4974 5041 5091 5264 5354 5405 5450 5517 5635 5687 5771 5795 5839 
5892 5915 0 5981 6004 6098 6138 6198 6258 6327 6515 6768 6806 
7420 7491 8026 8032 8059 8065 8066 8946 8947 8948 8949 8950 8954 
8 8968 8969 8970 8977 8978 8979 8989 8992 8997 9005 9006 9007 
9008 9009 9010 9019 9022 9029 9033 9039 9047 
SSWRMK= 000000 8950 
STIMES 001326 6984 1354* 1800* 1918* 2102% 2225% 3093* 4159% 4711* 5087* 5513* 6000* 6323+ 
6327* 6515* 6764*% 8032* 8977% 8984 8987* 8997 
$TKB 001242 6694 10032 10043 10531 
$TKS 001240 6684 1342 1361* 10032 10041 
STMPO 8 001302 6884 1133* 1624* 1627 1638* 1658* 1661 1665* 1678* 1681 1692 1705* 1713* 
1716 1727* 5862* 6348 6362 6421 6429 6449 6481 6489 6518 6532 6591 
6599 6619 6651 6659 6793* 7222% 7225% 7228 7231* 7662* 7690* 7694 7699* 
7716 7762 7767 7849* 7934% 9904 9919 9951 10402* 10610* 10700* 10716* 10729 
10739 §=10902 10913 10928 10960 10973 10991 11005 
$TMP1 001304 6894 = 1134* 6794% 7223* 7226 7229% 7232e 7707 7709 7712 7714* 7770 7772* 
7871* 7874* 11005 
$TMP10 001322 6964  8804*  8831* 8835 8863* 8889* 8893 .: 
$TMP11 001324 6978 8832* 8844 8890* 8900 - 
$TMP2 001306 6904 6349 6370 6379 6422 6431 6441 6482 7688* 7870* 10398* 10628* 10703* 
10733* 10902 10928 10960 10991 
STMP3 = 001310 6914  7868* 10399* 10615* 10704* 10928 10960 10991 
$TMP4 001312 6924 6356* 6408 6438* 6469 6487* 6519 6540 6549 6592 6601 6611 6652 
10400* 10616* 11032 
STMPS) =: 001314 6934 
ST™MP6 =—001316 6944 6396* 6459* 6490* 11032 
$TMP7 = =001320 6954 
$™N = 000100 14 32 1797 18044 1915 19224 1979 19854 2096 21024 2219 2225H# 862343 
23494 2 25004 2597 26034 2715 27214 2800 28064 8 28884 2967 29738 
30 3097# 3212 32184 2 33084 3426 34324 3546 35528 36744 3756 
37624 = §=3827 38334 3891 38974 3948 39544 4010 4016# 4 40594 4116 41234 
4156 41634 4210 42164 4339 43454 431 4437# 4534 45424 4 4603 4609# 
4659 46654 4708 47154 4829 48354 4917 49234 4968 49744 5 50414 5 
50914 52644 5348 53544 378 54054 544 54504 1 5517# 5626 56354 
5677 56874 5762 57714 57954 829 58394 58924 909 59154 5954 
5975 59814 60054 90 60984 6131 61384 6171 6189 61984 6251 
fs 7A 6313 63274 6499 65154 6754 67684 6800 68064 7414 7420# 7484 
$TPB 001246 6714 9392* 9403 10576* 
STPFLG 001253 6754 9350 9403 
$TPS 001244 6704 1385 7426 7429% 7441 7444% 7472* 7482* 7989 8005* 8012 8015* 9390 
9403 10536* 10544* 10554* 10572* 10574 10589* 
$TRAP 062144 1263 1349 4677 4684 89 4697 10242 


1106 1199 3 6 4680 68 46 
$TRP = 0000350 102494 10259 10260 102614 10262# 102634 102644 102654 102664 10267 102684 10269# 10270# 


DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.P11 


$STRPAD 
STSTNM 


STTYIN 


062164 
001202 


000002 
057315 
071235 


04-0CT-79 


08:55 


10246 
6534 


102574 
1 * 


M 5 
MACY11 30A(1052)_ 04=0CT=79 09:00 PAGE 250 
CROSS REFERENCE TABLE == USER SYMBOLS 


10072 


10258 
9383 
9398 


10261 


10260 
953 


1920* 


10261 
95734 


9391 


10262 


635 
7724 
4 


1983* 
2 


6 
9015* 


10263 


6364 
7734 
1357 


10264 


6384 
aecee 


2100* 
2 


10265 


6404 
777R 
15734 


10266 


6494 
7784 
05 


2223* 
2 


10267 


6554 
8934 
9 


10268 


704 
11944 


2347* 
2 


10269 
7054 
34 


SEO 9271 


6 
7531* 


10270 
7154 





DEQKC=D PDP 11/70=74MP CPU EXERCISER 
CEQKCD.P11 04-OCT-79 08:55 


5138 5141 
5249 5254 
5410 69 
5707 5731 
6043 6070 
7940 79 
66 8997 
10138 = 10575 


1 
-PARSR 063464 1791 7611 


MACY11 30A(1052) 
CROSS REFERENCE 


5155 5169 
5270 5289 
5484 5495 

755 5787 
6209 6217 


99 9047 
106424 109274 
7984 10394 


N 
04-OCT-79 09:00 PAGE 251 
TABLE == USER SYMBOLS 


186 5189 5201 5210 5214 
5306 5310 5312 5315 5340 
5524 5530 5553 5576 5596 
5807 5821 5918 5932 5961 
6245 6335 6341 6775 6781 
80674 8209 8354 8366 
93274 940 &# 96854 10002 


3 
109724 110144 110444 
106094 10636 


8 
10023 


84 
10032 


SEQ 0272 
5232 5243 
5371 5375 
5656 5675 
0117 6017 
74044 77398 


8485 5 
100764 10077 













B 6 | 
DEQKC=D PDP 11/70=74MP CPU EXERCISER = MACY11 3OAC10S2)  O6-0C1=79 09:00 PAGE 253 
CEQKCD.P1) = O4=OC T=79 08:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0273 | 


2 
a 
> 
oO 
ay 


ERROR 798 $11 1136 4658 641? 647 6500 6587 6648 6669 6795 6840 6854 6876 6%e 
6918 6937 6956 6977 6999 7037 7082 7097 7114 7140 7190 7205 7665 7821 7879 
7884 7936 8837 884) 8895 8859 §=10403 = =1063? 10707 =9©10721 = 10756 


6 
DEQKC=D PDP 11/70-74MP Oe: 1 aie MACY11 30A(1052)_ 04-0CT= 79° 09: ne —— 254 


CEQKCD.P11 04-0CT=79 CROSS REFERENCE TABLE == MACRO NAM SEQ 0274 
1a 4614 9629 9725 9889 10009 10127 
SH a 4614 9588 9705 9870 9993 10094 
RELOCA 10864 1804 1922 3097 4163 471 5091 5517 6004 6328 6768 
RELOCB 10864 1908 3083 4149 4701 5077 5503 5989 6306 6741 7406 
SCOPE 804 1801 1908 1919 1982 2099 2222 2346 2497 2600 2718 2803 2885 2970 3083 
3094 3215 3305 3429 3549 3671 3759 3830 3894 3951 4013 4056 4120 4149 4160 
4213 4342 4434 4539 4606 4662 4701 4712 4832 4920 4971 5038 5077 5088 5261 
5351 5402 5447 5503 5514 5632 5684 5768 5792 5836 5889 5912 5957 5978 5990 
6001 6095 613 6195 6255 6306 6324 6512 6741 6765 6803 7406 
SETTRA 1024694 10259 10260 10261 10262 10263 10264 10265 10266 10267 £«°+10268 10269 
SE TUP 14 4614 1339 
SKIP 14 4614 1746 1754 1756 1758 4557 6170 6499 
SLASH 1a 461 
SPACE 4614 
STARS 1” 4614 615 642 988 1090 1104 1216 1613 1622 1642 1654 1656 1676 1711 
1797 1799 1915 1917 1979 1981 2096 2098 2219 2221 2343 2345 2494 2496 2597 
2599 2715 2717 2800 2802 2882 2884 2967 2969 3090 3092 3212 3214 3302 3304 
3426 3428 3546 3548 3668 3670 3756 3758 3827 3829 3891 3893 3948 3950 4010 
4012 4052 4055 4116 4119 4156 4158 4210 4212 4339 4341 4431 4433 4534 4538 
4603 4605 4659 4661 4708 4710 4829 4831 4917 4919 4968 4970 5035 5037 5084 
5086 5256 5260 5348 5350 5378 5491 5444 5446 5510 5512 5626 5631 5677 5683 
5762 5767 5789 5791 5829 5835 5885 5888 5909 5911 5954 5956 5975 5977 5997 
5999 6090 6094 6131 6134 6189 6194 6251 6254 6313 6322 6418 6480 6502 6511 
6588 6650 6672 6677 6684 6688 6695 6701 6754 6763 6800 6802 7414 7416 7484 
7487 7498 7509 7525 7530 7613 7626 7670 7676 7976 7981 8019 8068 8071 8145 
8148 8218 8221 8285 8288 8340 8343 8457 8460 8584 8587 8683 8686 8778 8781 
8857 8917 8923 8940 8998 9047 9074 9159 9168 9180 9187 9196 9206 9216 
9232 9240 9253 9268 9308 9328 9403 9409 9463 9469 9497 9575 9643 9732 
9748 9805 9823 ty 9893 9901 9928 9945 9986 10028 10046 10077 10138 10233 #10270 
10274 10295 10302 10324 10340 10365 10376 =10407 10429 10484 10488 10495 10497 10502 10504 
+ cab 193es 10580 10584 10593 10608 10649 £10654 #=©10677 #«®110680 10697 10699 10713 10715 10726 
TRMTRP 102494 
TYPBIN 1a 4614 
TYPDEC 14 4614 1606 8045 8052 
TYPNAM la 4614 1566 
TYPNUM 14 4614 
TYPOCS 14 4614 1277 1285 1293 
TYPOCT 14 4614 600 1692 9081 9107 9119 
TYPTXT la 4614 1139 1143 1185 1200 1204 1209 1264 1268 1272 1281 1289 1595 1602 
1608 1688 1694 1760 7736 7745 8041 8048 9223 10639 
SSCMRE 6424 678 679 680 681 682 683 684 685 686 687 
S$CMT™M 6424 688 089 690 691 692 693 694 695 696 697 
SSESCA 14 4614 
SSNEWT 4 4a 4614 1797 1915 1979 2096 2219 2343 2494 2597 2715 2800 2882 2967 
3090 3212 3302 3426 3546 3668 3756 3827 3891 3948 4010 4052 4116 4156 4210 
4339 4431 4534 4603 4659 4708 4829 4917 4968 5035 5084 5256 5348 5378 5444 
5510 5626 5677 5762 5789 5829 5885 5909 5954 5975 5997 090 6131 6189 6251 
631 6502 6754 6800 7414 7484 
$$SET 10249 10259 10260 10261 10262 10263 10264 10265 10266 10267 «10268 #«10269 
SS$SKIP lf 4614 455 61 6499 
~EQUAT lf 
HE ADE a 22 
KT11. la 
. SE TUP la 1319 
. SWRH | lf 42 


DEQKC=D PDP 11/70=74MP CPU EXERCISER MACY11 30A(1052) 04=0CT= -79 09: 00 PAGE 255 


CEQKCD.P11 04-0CT=79 08:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0275 
~ SWRLO a 55a 58 61 
.$SACTI la” 615 
-$CATC la 597 
.SCMTA 1” 2a 642 
. $DB2D 18 
. $DB20 la 68 9643 
.SDIV 3 
SEOP 1# 8019 
. SERRO 1” 8998 
. SERRT la 
. SMULT la 
. SPOWE 1” 9986 
. SRAND 1a 7# 9858 
SRDDE 18 10077 
$RDOC la 
EAD 14 10028 
SSAVE 1# 9686 
- $SB2D la 
.$SB20 14 
. $SCOP la oe 8940 
-$SIZE 1” 10138 
. SSUPR if 
. STRAP 14 10233 
.STYPB 14 
.STYPD 1@ 8 9575 
. STYPE la 6424 9328 
$TYPO lf 9497 
.1170 la 71 


- ABS. 071235 000 


ERRORS DETECTED: 0 


DSKM: CEQKCD ,DSKZ: CEQKCD.LST/CRF /SOL=CEQKCD.SML.CEQKCD.P11 
RUN-TIME: 80 118 14 asibiaek 

RUN-TIME RATIO: 1185/214=5 

CORE USED: 33K (65 PAGES) 


